太炫了 1分钟把PPT秒变Word 100页PPT的内容批量提取不是问题

相信大家平时在工作的时候，是否会遇到这样的问题：

怎么把100页的PPT内容提取出来，变成Word文件？

相信这个问题很多需要做PPT报告的职场人都会遇到，还有学生党要提取老师的PPT课件也是很头疼的问题！不要担心！今天小编就来教大家怎么来轻松提取PPT内容，你的PPT秒变成Word出来！内容很干货，建议收藏嘻嘻！

首先给各位看一下我们需要提取的PPT课件内容，整整有100多页~

需要注意的是，我们下面提取的PPT内容范围，主要是通过文字框形式来加入的内容哦！其他形式的文字内容（例如图片）是没有办法提取的哦！

好啦~接下来我们来看看怎么来转换吧！

第一步：

首先开启你的PPT，然后按下【Alt+F11】键进入VBA页面，点选【插入】-【模组】。

第二步：

再点选【工具】里面，选择【引用】的选项。

第三步：

这时候会出现一个引用的可使用选项，我们在下拉框中找到【Microsoft Word 15.0 ObjectLibrary】然后进行勾选，完成后点选【确定】。

第四步：

回到程式码框，然后复制下面的程式码（直接复制即可），然后按下【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

第五步：

然后稍等一会，后台会自动进行转换，稍等片刻后就会自动生成一个带有PPT文字内容的Word文案，妥妥的全部都包含在里面了哈！

你可以直接进行储存、编辑、或者修改，别提有多方便啦！

好啦~以上就是关于怎么批量提取PPT内容的方法技巧了，希望对你有所帮助，有了这个方法，老板给你再多的PPT文件，你都可以轻松提取里面的文字到Word文件里啦~感兴趣的朋友可以收藏起来哦！以免不时之需！

欢迎继续关注！更多有趣好玩的PPT技巧分享给大家！