如何将ppt中的文字内容全部导出到word

Sub 提取PPT所有文字到Word()    On Error Resume Next    ' 引用Word对象库（工具→引用→勾选Microsoft Word X.0 Object Library）    Dim wordApp As New Word.Application    Dim wordDoc As Word.Document    Dim slide As Slide    Dim shape As Shape    Dim notePage As Slide    ' 创建新Word文档    Set wordDoc = wordApp.Documents.Add    wordApp.Visible = True    ' 遍历所有幻灯片    For Each slide In ActivePresentation.Slides        wordDoc.Range.InsertAfter "=== 第" & slide.SlideIndex & "页 ===" & vbCrLf        ' 提取幻灯片中所有形状的文字        For Each shape In slide.Shapes            If shape.HasTextFrame And shape.TextFrame.HasText Then                wordDoc.Range.InsertAfter shape.TextFrame.TextRange.Text & vbCrLf            End If        Next shape        ' 提取备注页文字        If slide.HasNotesPage Then            wordDoc.Range.InsertAfter "【备注】" & vbCrLf            For Each shape In slide.NotesPage.Shapes                If shape.HasTextFrame And shape.TextFrame.HasText Then                    wordDoc.Range.InsertAfter shape.TextFrame.TextRange.Text & vbCrLf                End If            Next shape        End If        wordDoc.Range.InsertAfter vbCrLf    Next slide    MsgBox "文字提取完成！", vbInformationEnd Sub

' 提取备注页文字        If slide.HasNotesPage Then            wordDoc.Range.InsertAfter "【备注】" & vbCrLf            For Each shape In slide.NotesPage.Shapes                If shape.HasTextFrame And shape.TextFrame.HasText Then                    wordDoc.Range.InsertAfter shape.TextFrame.TextRange.Text & vbCrLf                End If            Next shape        End If

#VBA宏#PPT#文字提取#提取文字#PPT文字提取#PPT文字导出