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

  • 发布时间:2018-07-05 07:04:49
  • |
  • 出处:PDF猫
  • |
  • 阅读量:41
“将这份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多种格式转换,高效办公