Hello大家好，我是帮帮。今天跟大家分享一下批量提取PPT内容，几百页PPT一键提取，word存档轻松排版。

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

大家请看范例图片，完整多页PPT课件，现在要提取课件内容。

注意提取范围是文本框加入的内容，其他方式导入的内容，不能批量操作。

在PPT中，直接按下Alt+F11进入VBA页面，选择插入——模块。

再点击工具——引用。

下拉找到Microsoft Word 16.0 ObjectLibrary，勾选，点击确定。

复制代码

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

复制完毕直接按下F5，执行代码。

根据内容，约微卡顿，PPT文本框文案，批量转入新建word文档，直接保存修改，快手轻松。

帮帮将每天定时更新各种模板素材，获取方式。

1、请在评论区评论+点赞^o^

2、点击关注，关注本头条号

3、进入头条号页面，右上角私信功能，私信回复“表格”，直接获取各类素材。