利用模块将PPT转换为Word文档

“将这份PPT，10分钟内容转换为Word文档”，听到这句话是不是觉得很崩溃呐，别说10分钟，1小时估计都很玄，其实是有捷径可走的。看仔细了不是pdf转word。

将PPT转为Word是有一个使用前提即PPT不是直接从Word文档导入过去的。也就是说在PPT中输入文本时，是一定要借助文本框的，与大家分享的就是这种PPT的转换方式。

第一步：打开PPT中VBA界面并输入代码

首先按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

第二步：清除文本格式

运行代码之后，文本就会本提取出来，但是比较乱，有很多的空行，这时利用Ctrl+H打开查找和替换对话框，之后在查找中^p^p，在替换中输入^p，如果空行比较多，多替换几次即可。

具体操作如下：