提取導出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里的所有文本框文字，直接另存為即可。