乔山办公网我们一直在努力
您的位置:乔山办公网 > ppt怎么做 > 500页PPT转Word,这个骚操作1分钟搞定!瞬间拉开你和同事的距离-ppt转换成word

500页PPT转Word,这个骚操作1分钟搞定!瞬间拉开你和同事的距离-ppt转换成word

作者:乔山办公网日期:

返回目录:ppt怎么做

前几天,公司请了个500强总监来给我们培训上课,乖乖...500强就是500强,连培训用的PPT课件都接近500页!

上课嘛,大家懂得,就是照着PPT念,重点来了:课上完后,我们老板要我们听课的每个人整理出一份Word文档出来,这...500页的PPT要整理成Word,心态崩了!

傻一点的,已经打开PPT一页一页地看内容,再复制粘贴...

聪明一点的(比如我),就在想怎么一次性将整个PPT转为Word,最后还真的被我找到了方法,1分钟就整理完毕。

现在就将PPT转Word的奇技淫巧传授给你,不用谢:

利用简单的VBA代码转换

看到VBA,就有小伙伴想关闭文章了,别急呀,我会把代码直接给你,复制粘贴就能完事!小学生都会用!

1、打开PPT文件,按「Alt + F11」键,就能打开VBA编辑器啦!

500页PPT转Word,这个骚操作1分钟搞定!瞬间拉开你和同事的距离

2、在编辑器的菜单栏的「工具」-「引用」中找到「Microsoft Word 15.0 Object Library」,勾选添加。

500页PPT转Word,这个骚操作1分钟搞定!瞬间拉开你和同事的距离

3、接下来我们就要开始“写”代码啦!点击「插入」-「模块」:

500页PPT转Word,这个骚操作1分钟搞定!瞬间拉开你和同事的距离

复制下面的代码到编辑器:

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了。

500页PPT转Word,这个骚操作1分钟搞定!瞬间拉开你和同事的距离

如果Word里面出现很多空行,可以用查找替换删除哦~(怎么替换自己百度啦!很简单的)

利用文档转换器

如果你还是觉得上面的VBA代码太麻烦,那就花点小钱找个专业的文档转换器解决问题吧,这种转换器超级傻瓜化地,1键就能转换,还可以多个文档一起转换。

迅捷PDF转换器

迅捷PDF转换器是我用过后觉得转换效果还不错的一个软件,价格也很便宜,就一顿饭钱,瞬间帮你解决各种文档格式转换难题。

打开转换器,将我们需要转换的PPT拖进去,下方设置转换格式和模式。然后开始转换就可以了,转换效果很快出来。

500页PPT转Word,这个骚操作1分钟搞定!瞬间拉开你和同事的距离

500页PPT转Word,这个骚操作1分钟搞定!瞬间拉开你和同事的距离

500页PPT转Word,这个骚操作1分钟搞定!瞬间拉开你和同事的距离

以上就是PPT转Word的2种方法,希望能够帮助到你,有什么不懂的,欢迎随时询问我。

相关阅读

关键词不能为空
极力推荐

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