将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
来源:知乎
👉👉传送门