如何提取活动PowerPoint演示文稿中包含表格的所有文本（附现有宏代码）

嗨，我帮你调整一下宏代码，让它能提取表格里的文本内容～先看看你的问题描述：

我找到了以下用于将PowerPoint文件转换为文本文件的宏代码：它仅能完美处理占位符、形状、组合形状中的文本。我想要提取活动演示文稿中的所有文本，但问题是表格和图表不在这段代码的处理范围内，所以表格和图表的内容被跳过了。是否也能提取表格中的内容？

下面是修改后的完整宏代码，新增了表格文本的提取逻辑，同时保留了你原有的功能：

Sub ExtractAllTextIncludingTables()
    Dim oPres As Presentation
    Dim oSlides As Slides
    Dim oSld As Slide         'Slide Object
    Dim oShp As Shape         'Shape Object
    Dim iFile As Integer      'File handle for output
    Dim PathSep As String
    Dim FileNum As Integer
    Dim sTempString As String
    Dim oTable As Table
    Dim iRow As Integer
    Dim iCol As Integer

    #If Mac Then
        PathSep = ":"
    #Else
        PathSep = "\"
    #End If

    Set oPres = ActivePresentation
    Set oSlides = oPres.Slides

    FileNum = FreeFile

    'Open output file (save to the same folder as the presentation, named "Presentation_Text.txt")
    Open oPres.Path & PathSep & "Presentation_Text.txt" For Output As FileNum

    For Each oSld In oSlides
        'Write slide number and title as header
        Print #FileNum, "=== Slide " & oSld.SlideIndex & ": " & oSld.Shapes.Title.TextFrame.TextRange & " ==="
        Print #FileNum, "" 'Add blank line for readability

        For Each oShp In oSld.Shapes
            'Check if shape has text (normal shapes/placeholders)
            If oShp.HasTextFrame = msoTrue Then
                If oShp.TextFrame.HasText = msoTrue Then
                    sTempString = oShp.TextFrame.TextRange.Text
                    Print #FileNum, "Shape Text: " & sTempString
                End If
            End If

            'Check if shape is a table and extract cell text
            If oShp.HasTable = msoTrue Then
                Set oTable = oShp.Table
                Print #FileNum, "--- Table Content ---"
                For iRow = 1 To oTable.Rows.Count
                    sTempString = ""
                    For iCol = 1 To oTable.Columns.Count
                        'Append cell text, separated by tabs for readability
                        If oTable.Cell(iRow, iCol).Shape.TextFrame.HasText = msoTrue Then
                            sTempString = sTempString & oTable.Cell(iRow, iCol).Shape.TextFrame.TextRange.Text & vbTab
                        End If
                    Next iCol
                    'Remove trailing tab and print the row
                    Print #FileNum, Trim(sTempString)
                Next iRow
                Print #FileNum, "--- End Table ---"
            End If

            'Optional: Handle chart text (titles, data labels, etc.)
            'If oShp.HasChart = msoTrue Then
            '    Print #FileNum, "--- Chart Content ---"
            '    'Extract chart title
            '    If oShp.Chart.HasTitle Then
            '        Print #FileNum, "Chart Title: " & oShp.Chart.ChartTitle.Text
            '    End If
            '    'Extract data labels (you can expand this to get more chart text)
            '    On Error Resume Next 'Skip if no data labels
            '    Print #FileNum, "Data Labels: " & oShp.Chart.SeriesCollection(1).DataLabels.Text
            '    On Error GoTo 0
            '    Print #FileNum, "--- End Chart ---"
            'End If
        Next oShp
        Print #FileNum, "" 'Add blank line between slides
    Next oSld

    Close FileNum
    MsgBox "文本提取完成！文件已保存到：" & oPres.Path & PathSep & "Presentation_Text.txt", vbInformation
End Sub

关键修改说明： #

• 新增了oTable、iRow、iCol变量来处理表格对象
• 在遍历每个形状时，增加了If oShp.HasTable = msoTrue的判断，一旦检测到表格，就逐行逐列提取每个单元格的文本
• 表格内容会用--- Table Content ---和--- End Table ---标记，每行单元格文本用制表符分隔，方便阅读
• 还加了可选的图表文本提取逻辑（被注释掉了），如果需要提取图表的标题、数据标签等内容，去掉注释即可使用
• 优化了输出格式，增加了幻灯片标题、分隔线，让生成的文本文件结构更清晰

备注：内容来源于stack exchange，提问作者Arurnaj Sekar