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

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

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

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

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

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

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

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

点击工具——引用。

勾选“MicrosoftWord16.0ObjectLibrary”16.0是office版本，点击确定。

点击插入——模块。

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

SubMain()

OnErrorResumeNext

DimtempAsNewWord.Document,tmpShapeAsShape,tmpSlideAsSlide

ForEachtmpSlideInActivePresentation.Slides

ForEachtmpShapeIntmpSlide.Shapes

temp.Range().Text=temp.Range()+tmpShape.TextFrame.TextRange.Text

NexttmpShape

NexttmpSlide

temp.Application.Visible=True

EndSub

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

希望大家喜欢今天的教学：）拜拜，下课-。-

扫描下面的二维码加上微信，每天分享有趣的教程哦！