:101页PPT转为Word,我只花了1分钟。-PPT资讯免费ppt模版下载-道格办公

101页PPT转为Word,我只花了1分钟。

量超过千万。 今天,我就来和大家分享一种更快速的方法,只需要1分钟就能完成PPT转Word的操作。 首先,打开你要转换的PPT文件,在菜单栏中选择"文件",然后点击"另存为"选项。 在弹出的保存窗口中,选择保存类型为"PDF格式",然后点击"保存"按钮。这样,PPT文件就会被保存为PDF格式。 接下来,打开任意一款PDF转Word的在线转换工具,比如SmallPDF、Adobe Acrobat等。 在转换工具的界面中,点击"选择文件"按钮,然后选择之前保存的PDF文件进行上传。 上传完成后,点


文 / 一周进步 · 水韬


又到学期末了,你们一定需要这个。


大学时候,我写了篇推文,是关于PPT在大纲模式下快速转换Word的文章,异常火爆,全网阅读达到15W+……


收获好评的同时,也有一片小伙伴在后台哭诉:“没有大纲模式怎么办??”


当时有考虑用其他的方法来寻求答案,但终究没找到一个完美的,考虑到去年文章里有些技巧存在局限,没能100%解决小伙伴们的疑问,半年过后,决定推出这篇 # PPT 转 Word 2.0 # 。


 

01.引言


相信大家大学都上过选修课,而选修课的考试,因为可以抄老师发的PPT,答案基本上都可以找到,分数往往都不会太低。

 

当然,前提是:把老师的PPT整理打印出来

 

而往往老师给我们的PPT,往往是这样子的 ↓↓↓




我仔细看了看,144页……心态崩了


然后看了看朋友,PPT有5个,每个的页数都是100+,心情逐渐平复……


相信很多小伙伴在这个时候会抱怨一句:“怎么可以这么多,这PPT有毒啊……”,然后就开始一页一页地看内容,再复制粘贴。




PPT与word之间的疯狂切换,宛如Office高手。


但是,这种做法,到最后,只会让你崩溃掉。

 

那怎么又快又准确的将页数100+的PPT快速转换为Word呢?接下来骚操作了,快拿出小本本,做笔记。



02.准备工作


在对PPT文件处理之前,我们需要充分了解我们手头上PPT课件类型,了解视图格式,这点要提前弄清楚,根据不同模式会有不同的操作技巧。


①大纲模式


大学课件PPT,绝大多数是Word大纲模式下,导入PPT中后,再添加一些简单样式,这种制作方法效率非常的高,但是颜值非常的低。

 


②文本框模式


还有一些课件就是由多个独立的文本框组成,这种时候视图格式里就没有文本大纲。



 注意 

操作非常得简单粗暴



03.创建讲义法

 

第一步:创建讲义

 

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



第四步:保存,打印



04.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文档,保存即可。





结语


记得去年那篇文章发出来后,很多朋友使用过后都转发了,想必大家也是受到选修考试摧残过太多次了,忽然出现这么一个骚操作,看来 PPT快速转Word 对大家真的有用。


今天的VBA的用法,在突破了大纲模式的局限后,实现了PPT文档的快速转换,在测试了30个PPT课件后,我终于敢写成推文,将这个实用的技巧分享给大家了。


分享完毕,希望有助。


好看的人都 在看

文章为用户上传,仅供非商业浏览。发布者:Lomu,转转请注明出处: https://www.daogebangong.com/articles/detail/It%20only%20took%20me%201%20minute%20to%20convert%20101%20pages%20of%20PPT%20to%20Word.html

(810)
打赏 支付宝扫一扫 支付宝扫一扫
single-end

相关推荐