[实用文档]将PPT中所有文本框里的文字提取出来

　

ppt文本框

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

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

然后点击顶部的“工具”菜单，选择引用，找“Microsoft word X.0 Object Library”（其中X与你的OFFICE版本有关），钩上，点确定

将下列代码贴到刚建立的模块里，按F5即可 Sub Main()

 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，另存为即可。

相关阅读

Word2013文档中隐藏文字和显示文字

为了防止他人剽窃或是窜改Word文档中的内容，最常用的办法就是给Word文档添加密码，有了密码文档是很安全，但是时间长了难免有可能会忘

Word/Excel/PPT2007电脑异常导致文件丢失，如何恢复？

正在使用Office2007办公软件的过程中，突然停电或死机、蓝屏等异常现象发生，文件根本没来得及保存，怎么办？Office2007软件（包含Word、Ex

软件工程概要设计文档

          概要设计 1引言1.1目的  该文档的目的是描述实验室设备管理系统的概要设计，主要内容包括系统功能简介、系统

干货 | 互联网家装产品市场需求文档（MRD）

产品背景传统家装发展遭遇瓶颈传统家装行业是一个让人又爱又狠，恨之入骨的行业，每个环节基本都有痛点，没有什么用户体验感而言。比如

Gitbook浅玩：如何发布开源的需求文档？

GitBook 是一项致力于文档编制、数码写作和出版的新型、简单的解决方案。它不仅提供了简单且强大的电子书创建工具 GitBook，同时还