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估计也是从这复制，当然只是个人判断，仅供参考，如有侵权请通知删除。