快速提取PPT中文本的方法

快速提取PPT中文本的方法：

1. 打开PPT，按ALT+F11打开VBA编辑器，在左面的工程视图里点击右键，选择插入->模块，添加一个模块，名字都不用改。

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

3. 将下列代码贴到刚建立的模块里，按F5，就会打开一个word，另存为即可。Sub Main()

On Error Resume Next

Dim temp As New , tmpShape As Shape, tmpSlide As Slide

For Each tmpSlide In

For Each tmpShape In

().Text = () + Next tmpShape

Next tmpSlide

= True

End Sub 【完】