提取ppt所有文本框内的文字

1、打开ppt，按alt + F11打开 vba编辑器

2、添加模块、引入Microsoft Word X.0 Object Library

3、加入以下VBA代码

Sub Main()

    On Error Resume Next

    Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide

    For Each tmpSlide In ActivePresentation.Slides

        For Each tmpShape In tmpSlide.Shapes

            temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text

        Next tmpShape

    Next tmpSlide

    temp.Application.Visible = True

End Sub

 4、F5运行，切换到新建的word，里面即为所有文本框内容。