二、PPT转Word
首先按Alt F11打开相应的VBA界面，这时选择选项卡中的插入——模块打开相应的界面，如下图所示：
然后选择工具选项卡下的引用，操作如下图：
在相应的界面中找到类型为“Microsoft Word 16.0 ObjectLibrary”，点击确定。
提示：如果是Office2013版的就找到13即可。
最后在模块中输入以下代码并按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
操作如下图所示：
