提取PPT所有文字

背景：PPT並非按着大綱寫，提取PPT文字時比較困難
注意：請確認PPT不能用大綱複製後再使用次方法
接下來爲我個人總結的經驗，如有大神有更好的方法請告知我。謝謝

大致步驟如下：
1.打開VBA編輯器，
2.創建模塊
3.修改“工具”菜單的引用
4.粘貼代碼到模塊裏
5.把打開的word文檔另存爲

以下爲詳細步驟：

1.打開VBA編輯器

打開PPT，按alt + F11
出現Visual Basic for Applications (VBA) 編輯器

2.創建模塊

3.修改“工具”菜單的引用

然後找到找到“Microsoft Word X.0 Object Library”（其中X與你的OFFICE版本有關），鉤上，點確定

4.粘貼代碼到模塊裏

將下列代碼貼到剛建立的模塊裏，按F5即可

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

5.把打開的word文檔另存爲
這樣你就得到了你想要的PPT所有文字了

等等還有彩蛋↓ ↓ ↓

提取後發現在word文檔上，文字段落排序有點亂，
例如圖1爲我們想要的，但是出現圖2，第三段矯情跑上去了

圖1