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

我的位置：首页 > 教程分类 > PDF转PPT > 利用模块将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，如果空行比较多，多替换几次即可。

具体操作如下：

假如你学习到了这个新技能不妨转发推荐给你的小伙伴。并动动小指头收藏，以免下次走丢。

我们将定期更新Word、Excel、PPT等操作技巧。pdf转换器供在线免费的PDF转word、PDF转Excel、PDF转PPT服务。

PDF猫转换器

支持40多种格式转换，高效办公

马上下载

上一篇：利用PPT制作简单的问答游戏下一篇：100页PPT转换成Word文档,你多久搞定