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

怎么把100页的PPT内容提取出来,变成Word文档?

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

怎样快速把ppt 转换doc(太酷了1分钟把PPT秒变Word)(1)

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

怎样快速把ppt 转换doc(太酷了1分钟把PPT秒变Word)(2)

需要注意的是,我们下面提取的PPT内容范围,主要是通过文本框形式来加入的内容哦!其他形式的文本内容(例如图片)是没有办法提取的哦!

怎样快速把ppt 转换doc(太酷了1分钟把PPT秒变Word)(3)

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

第一步:

首先打开你的PPT,然后按下【Alt F11】键进入VBA页面,点击【插入】-【模块】

怎样快速把ppt 转换doc(太酷了1分钟把PPT秒变Word)(4)

第二步:

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

怎样快速把ppt 转换doc(太酷了1分钟把PPT秒变Word)(5)

第三步:

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

怎样快速把ppt 转换doc(太酷了1分钟把PPT秒变Word)(6)

第四步:

回到代码框,然后复制下面的代码(直接复制即可),然后按下【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 转换doc(太酷了1分钟把PPT秒变Word)(7)

第五步:

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

怎样快速把ppt 转换doc(太酷了1分钟把PPT秒变Word)(8)

你可以直接进行保存、编辑、或者修改,别提有多方便啦!

怎样快速把ppt 转换doc(太酷了1分钟把PPT秒变Word)(9)

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

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

,