想将PPT的文字转换到Word文档？看这一篇就够了！！！

将PPT的文字转换到Word文档

又到了期末考试复习周呢，一些老师会给我们复习的PPT，为了方便，我们当然会选择把它打印出来，但是看到这么多页的PPT。。。。。
比如下面这张图就是我们老师给的PPT

我简直震惊！于是开始探索将PPT转化为Word的方法
看到的最多的方法就是
「创建讲义」→「清除文字格式」 →「清除空格」

其实也就是在打开PPT的下图界面选择导出

然后再创建讲义

最后就是选择只使用大纲

最后的确会生成一个word文档，但是我的生成的是一个空文档
我：？？？

不得不说这个方法真的很废柴
最后我终于找到了一个实际可行的方法
步骤如下：
1、打开PPT文件，按【Alt + F11】键打开VBA编辑器

2、点击【工具】-【引用】，找到【Microsoft Word 16.0 Object Library】勾选添加
ps：重点是Microsoft Word xxx Object Library，其他.0应该也行


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

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

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

成果

文章参考自
链接：https://www.zhihu.com/question/19938492/answer/535476437
来源：知乎
👉👉传送门