将PPT中所有文本框里的文字提取出来
很实用的办法,一下子就把问题解决了。
每次期末面对一堆PPT复习资料是否觉得看着很麻烦呢?如果这些资料都是以文字为主,那么这个玩意就派上用场了。
打开PPT,按ALT+F11打开VBA编辑器,在左面的工程视图里点击右键,选择插入->模块,添加一个模块,名字都不用改。
然后点击顶部的“工具”菜单,选择引用,找“Microsoft Word X.0 Object Library”(其中X与你的OFFICE版本有关),钩上,点确定
将下列代码贴到刚建立的模块里,按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,就会打开一个word,另存为即可。