提取导出PPT中所有文本框里的文字

打开要提取导出文本的PPT文件，按ALT+F11快捷键打开VBA编辑器，在左侧的工程视图里点击右键，选择插入->模块，添加一个模块，名字不用改。

然后点击顶部的“工具”菜单，选择引用，找“Microsoft Word X.0 Object Library”（其中X与你的OFFICE版本有关），勾选和点击确定。

将下列代码贴到刚建立的模块里：

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

复制粘贴以上代码后，按F5，点击运行，就会打开一个word文档，里面就是提取和导出的PPT里的所有文本框文字，直接另存为即可。