PowerPoint VBA遍历幻灯片文本框遗漏内容的问题及解决方案

原代码的问题分析 #

• 遗漏非msoTextBox类型的含文本形状：复制粘贴生成的文本框可能属于其他形状类型（如msoPlaceholder、分组内的形状等），仅判断oShp.Type = msoTextBox会过滤掉这些含文本的容器。
• 未处理幻灯片标题：幻灯片标题是特殊的占位符形状，不属于msoTextBox类型，原代码没有单独访问Shapes.Title，因此无法提取标题文本。

解决方案代码 #

以下代码可遍历演示文稿所有幻灯片，提取所有含文本的容器（包括各类文本框、占位符）及幻灯片标题的文本到立即窗口：

Sub PrintTextInSlide()
    Dim pptSlide As slide
    Dim pptShape As shape
    Dim text As String
    
    ' 遍历演示文稿中的每张幻灯片
    For Each pptSlide In ActivePresentation.Slides
        Debug.Print "Slide " & pptSlide.SlideIndex & ":"
        
        ' 遍历当前幻灯片上的所有形状
        For Each pptShape In pptSlide.Shapes
            ' 判断形状是否包含文本框，且文本框内有内容
            If pptShape.HasTextFrame Then
                If pptShape.TextFrame.HasText Then
                    text = pptShape.TextFrame.TextRange.Text
                    Debug.Print "    Shape: " & pptShape.Name & " - " & text
                End If
            End If
        Next pptShape
        
        ' 单独提取幻灯片标题文本
        If pptSlide.Shapes.Title.HasTextFrame Then
            text = pptSlide.Shapes.Title.TextFrame.TextRange.Text
            Debug.Print "    Slide Title: " & text
        End If
        
    Next pptSlide
End Sub

代码说明 #

• 通过HasTextFrame和TextFrame.HasText双重判断，无需依赖形状类型，只要形状包含可编辑的文本框且有内容，就会提取文本，覆盖了所有含文本的容器（包括复制粘贴生成的各类形状）。
• 单独通过pptSlide.Shapes.Title访问幻灯片标题占位符，确保标题文本被提取，即使标题不属于msoTextBox类型。

内容的提问来源于stack exchange，提问作者elbillaf