光速导出PPT中的文本内容，还在复制粘贴的OUT了！

Hello大家好，我是帮帮。今天继续跟大家分享一下在如何将PPT中的文字内容导出，快速整理成word文案。

有个好消息！为了方便大家更快的掌握技巧，寻找捷径。请大家点击文章末尾的“了解更多”，在里面找到并关注我，里面有海量各类模板素材免费下载，我等着你噢^^<——非常重要！！！

我们来看范例图片。首先PPT的文字内容如果是以word大纲方式插入的，可以轻易导出。

进入PPT的选项设置——快速访问工具栏——选择不在功能区的命令——创建讲义，进行添加。

点击快速访问栏的创建讲义——只使用大纲。

这样PPT快速生成（如果内容较多，要卡顿生成一会^^）word文档，大纲内容被轻松添加到word中，便于重新排版。

但是对于非大纲级别的内容，全是文本框的内容导出，就要用一点宏命令。

在PPT中直接按下ALT+F11打开VBA编辑器。

点击工具——引用。

勾选“Microsoft Word 16.0 Object Library”16.0是office版本，点击确定。

点击插入——模块。

在模块中，直接复制以下代码。复制完以后，按下F5，根据内容多少卡顿一会。

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

所有文本框文字内容提取到word中，我们稍加排版，快速整理文案。

希望大家喜欢今天的教学：）拜拜，下课-。-（多看看本文第二段哟，老！熟！人！都！懂！的！）绝对不让你后悔，赶紧摁一下！“了解更多”在文末唷！