将PPT中所有文本框里的文字提取出来(通用1篇)
篇1:将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,另存为即可。
【将PPT中所有文本框里的文字提取出来】相关文章:
将计算机二级Office2010Excel试题中会出现的所有公式04-16
巧用查找替换,一次提取出所有邮箱地址04-22
将文本转化为有效的数学活动04-27
物权法中所有权制度论文04-15
物权法中所有权制度论文提纲11-15
国企混合所有制改革中财务整合问题探析09-10
在文本中怎么引用论文题目05-06
混合所有制经济组织中的党建工作研究09-11
吃透文本,让学生在慢慢咀嚼中理解11-10
阅读教学中与文本对话教学心得04-30