提取ppt中的文字至word文档中的方法

在一些场合下我们也许会需要将ppt中的文字提取出来，这里给出两种方法

一、大纲提取

这种方法适合提取大纲，点击视图->大纲可查看当前ppt大纲

具体方法：

1.点击文件->导出

2.点击创建讲义->创建讲义

3.在“发送到Microsoft Word”选项卡中选择“只使用大纲”，点击确定

4.接下来就会生成一个word文档，内容即为提取的文字

二、代码提取

如果第一种方法未提取出文字，可使用代码方法，这种方法会将ppt中所有文字（包括形状内插入的文字）提取出来

1.右键功能区空白处-> 自定义功能区，将右侧的自定义功能区中“开发工具”前面的框勾选，点击确定

2.点击开发工具->查看代码

3.点击“工具”->“引用”，找到含有“Microsoft Word”的选项，在前面勾选，点击确定

4.点击“插入”->模块，在弹出的代码窗口中插入以下代码：

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内的所有文字

三、常见问题

1.用户定义类型未定义：

“工具”->“引用”中没有勾选“Microsoft Word”开头的选项

2.无效的next控件变量引用：

检查命名是否正确，前后名称是否对应