专注企业建站
网络优化推广

提取导出PPT中所有文本框里的文字

打开要提取导出文本的PPT文件,按ALT+F11快捷键打开VBA编辑器,在左侧的工程视图里点击右键,选择插入->模块,添加一个模块,名字不用改。

然后点击顶部的“工具”菜单,选择引用,找“Microsoft Word X.0 Object Library”(其中X与你的OFFICE版本有关),勾选和点击确定。

将下列代码贴到刚建立的模块里:

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里的所有文本框文字,直接另存为即可。

未经允许不得转载:雅风博客 » 办公软件 » Powerpoint
分享到: 更多