相信大家大学都上过选修课,而选修课的考试,因为可以抄老师发的PPT,答案基本上都可以找到,分数往往都不会太低。
当然,前提是:把老师的PPT整理打印出来。
而往往老师给我们的PPT,往往是这样子的 ↓↓↓
我仔细看了看,144页……心态崩了
然后看了看朋友,PPT有5个,每个的页数都是100+,心情逐渐平复……
相信很多小伙伴在这个时候会抱怨一句:“怎么可以这么多,这PPT有毒啊……”,然后就开始一页一页地看内容,再复制粘贴。
PPT与word之间的疯狂切换,宛如Office高手。
但是,这种做法,到最后,只会让你崩溃掉。
那怎么又快又准确的将页数100+的PPT快速转换为Word呢?接下来骚操作了,快拿出小本本,做笔记。
01
准备工作
在对PPT文件处理之前,我们需要充分了解我们手头上PPT课件类型,了解视图格式,这点要提前弄清楚,根据不同模式会有不同的操作技巧。
大纲模式
大学课件PPT,绝大多数是Word大纲模式下,导入PPT中后,再添加一些简单样式,这种制作方法效率非常的高,但是颜值非常的低。
文本框模式
还有一些课件就是由多个独立的文本框组成,这种时候视图格式里就没有文本大纲。
注意
操作非常得简单粗暴
↓↓↓
02
创建义法
第一步:创建义
1.找到文件选项卡
2.选择导出
3.点击创建义
4.选择 只使用大纲
这个时候我们会得到:一份乱码的Word,保留了PPT文字原格式,页数:74页,字数11329字。
第二步:清楚文字格式
1.全选文字
2.找到清楚文字格式按钮,点它!!
见证奇迹的时候到了时候到了。
现在的Word变成了:20页,11189个字,字体形式统一,但是在Word里,发现了很多很多的空格!!!
第三步:消除空格
1.快捷键 Ctrl+H,进行替换
2.替换【^p^p】为【^p】
3.重复几次【全部替换】,直到无法替换为止
最终的Word:10页,格式统一,再简单地删除了一些无关紧要的内容,最终字数为7933字。
第四步:保存,打印
03
VBA大法好
在去年,评论区一片小伙伴在问我:“没有大纲模式怎么快速转为Word呢?”
去年我的答案是:“这个,可能真的没办法。”
今年我的答案是:“很简单,依旧是一分钟。”
这里我们要用到的骚操作是—— vba。
第一步:Alt + F11 进入vba界面
第二步:创建模块
在菜单栏找到插入,选择模
第三部:引用 VBA Project
找到工具选项卡,找到引用。
在这里,我们会看到很多中文件类型,我们找到Microsoft Word 16.0 Object Library,可根据电脑里office版本选择13/16。
第四部:复制代码
复制代码,在模块中粘贴。
代码如下 ↓
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
P.s:多复制几次噢,不要漏
第五步:导出文档
单击F5,弹出Word文档,保存即可。
04
结语
想必大家也是受到选修考试摧残过太多次了,忽然出现这么一个骚操作,看来 PPT快速转Word 对大家真的有用。
评论(0)