将PPT中所有文字提取出来(包括文本框文字)

时间: 2019-08-25 / 分类: 生活 / 浏览次数: 16 views / 0个评论 发表评论

打开PPT,按ALT+F11打开VBA编辑器,(部分电脑FN+ALT+F11)在左面的工程视图里点击右键,选择插入->模块,添加一个模块,名字都不用改。

然后点击顶部的“工具”菜单,选择引用,找“Microsoft Word X.0 Object Library”(其中X与你的OFFICE版本有关),钩上,点确定(注意有个是office,有个是word,勾不对会提示“vba用户定义类型未定义”)

将下列代码贴到刚建立的模块里,按F5(部分电脑FN+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

复制以上代码后,f5(部分电脑FN+F5),就会打开一个word,另存为即可。

发表评论

你必须 登录后 才能留言!