无需第三方软件！500页PPT一键转换成Word，只要1分钟-ppt转换成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文档如果有很多空行，可以用查找替换进行删除。

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

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