乔山办公网我们一直在努力
您的位置:乔山办公网 > word文档 > ppt转word-无需第三方软件!500页PPT一键转换成Word,只要1分钟

ppt转word-无需第三方软件!500页PPT一键转换成Word,只要1分钟

作者:乔山办公网日期:

返回目录:word文档

PPT转Word是我们工作中经常遇到的一个格式转换问题,通常需要借助第三方软件才能完成,很麻烦,接下来小编给大家分享一个小技巧,500页PPT一键转换成Word,只要1分钟,不会的自觉学哦。


1、打开PPT文件,按【Alt + F11】键打开VBA编辑器。


2、点击【工具】-【引用】,找到【Microsoft Word 15.0 Object Library】勾选添加。


3、点击【插入】-【模块】,复制以下代码进编辑器。


代码:


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


4、最后点击【运行】代码,PPT就成功转换成Word了。


小提示:转换好的Word文档如果有很多空行,可以用查找替换进行删除。


怎么样?这个方法是不是既方便又实用,需要的可以去试试。


想要获取更多小技巧和干货,关注【转换达人】


相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网