第二步：
再点击【工具】里面，选择【引用】的选项。
第三步：
这时候会出现一个引用的可使用选项，我们在下拉框中找到【Microsoft Word 15.0 ObjectLibrary】然后进行勾选，完成后点击【确定】。
第四步：
回到代码框，然后复制下面的代码（直接复制即可），然后按下【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
第五步：
然后稍等一会，后台会自动进行转换，稍等片刻后就会自动生成一个带有PPT文本内容的Word文案，妥妥的全部都包含在里面了哈！
