PowerPoint (PPT) 文檔 文本内容提取

ppt文檔裡面 有很多文字，有些時候需要提取出來在WORD裡面做素材用，網上搜尋了下，首推的是pptConverttodoc，可我下載下傳下來試驗了下，要麼是空白，要麼不全，或許與我的系統環境有關。其它還有什麼存為大綱之類，都沒啥用，因為我要的就是文本框裡面的所有東西。想想那個pptConverttodoc應該是内置VBA程式的應用，按理說寫個VBA應該很簡單，不過畢竟沒寫過，難不成為這麼點事還要去看下VBA函數？直接搜尋 “ppt文字提取” 果然有現成VBA，現複制如下，以備參考。（原文沒有寫作者和出處，故無法提供程式作者，不過這麼簡單的程式，應該也沒有人申明版權吧? ）

原文如下：

打開PPT ，按ALT+F11打開VBA 編輯器，在左面的工程視圖裡點選右鍵，選擇插入->子產品，添加一個子產品，名字都不用改。

然後點選頂部的“工具”菜單，選擇引用，找“Microsoft Word X.0 Object Library”（其中X 與你的OFFICE 版本有關），鈎上，點确定

将下列代碼貼到剛建立的子產品裡，按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

複制以上代碼後，f5，就會打開一個word ，另存為即可。

在此感謝網上無名者貢獻，雖然很簡單，可卻省了很多事。

後記：已找到估計應該是原文連結，畢竟圖和文字是對應的（點選 上面 原文如下 可檢視 ），以前複制的VBA估計也是從這複制，當然隻是個人判斷，僅供參考，如有侵權請通知删除。