快速提取PPT中文本的方法.pdfVIP

快速提取PPT中文本的方法： 1. 打开PPT，按ALT+F11 打开VBA 编辑 器，在左面的工程视图里点击右键，选择 插入-模块，添加一个模块，名字都不用 改。 2. 然后点击顶部的“工具”菜单，选择 引用，找“Microsoft Word Object Library ” （其中X 与你的OFFICE 版本有关），钩上， 点确定。 3. 将下列代码贴到刚建立的模块里，按 F5，就会打开一个word，另存为即可。 Sub Main() On Error Resume Next Dim temp As New , tmpShape As Shape, tmpSlide As Slide For Each tmpSlide In For Each tmpShape In ().Text = () + Next tmpShape Next tmpSlid