教你把PPT中所有文本框里的文字提取出来

发表于 2019-11-15 22:12:48

打开PPT，按ALT+F11打开VBA编辑器，在左面的工程视图里点击右键，选择插入->模块，
添加一个模块，名字都不用改。
然后点击顶部的“工具”菜单，选择引用，找“Microsoft Word ×.0Object 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，另存为即可。

发表于 2019-11-22 08:21:18

這麼好的帖子都沒有人頂！d=====(￣▽￣*)b，我來多頂頂樓主

发表于 2019-11-29 07:51:20

确实是难得好帖啊，讓我涕流滿面，頂頂一起下吧先

发表于 7 天前

我帶著醬油瓶路過一起下吧的，還是忍不住小手一抖！

发表于前天 23:32

这个資源一般般，不過我喜歡