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

@水韬

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

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

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

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

引言

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

当然，前提是：把老师的PPT整理打印出来。

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

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

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

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

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

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

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

准备工作

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

大纲模式

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

文本框模式

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

 注意 

操作非常得简单粗暴

↓↓↓

创建讲义法

第一步：创建讲义

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

第四步：保存，打印

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课件后，我终于敢写成推文，将这个实用的技巧分享给大家了。

分享完毕，希望有助。