100页PPT转换为Word文档,我1分钟就搞定了~

发布时间:2019-12-26 来源:网络


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


将PPT转为Word是有一个使用前提即PPT不是直接从Word文档导入过去的。也就是说在PPT中输入文本时,是一定要借助文本框的,本期Word妹与大家分享的就是这种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,如果空行比较多,多替换几次即可。


具体操作如下: