将PPT中所有文本框里的文字提取出来(共1页).docx

《将PPT中所有文本框里的文字提取出来(共1页).docx》由会员分享，可在线阅读，更多相关《将PPT中所有文本框里的文字提取出来(共1页).docx（1页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

精选优质文档-倾情为你奉上将PPT中所有文本框里的文字提取出来打开PPT，按ALT+F11打开VBA编辑器，在左面的工程视图里点击右键，选择插入-模块，添加一个模块，名字都不用改。然后点击顶部的“工具”菜单，选择引用，找“Microsoft Word X.0 Object Library”（其中X与你的OFFICE版本有关），钩上，点确定将下列代码贴到刚建立的模块里，按F5即可Sub Main()On Error Resume NextDim temp As New Word.Document, tmpShape As Shape, tmpSlide As SlideFor Each tmpSlide In ActivePresentation.SlidesFor Each tmpShape In tmpSlide.Shapestemp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.TextNext tmpShapeNext tmpSlidetemp.Application.Visible = TrueEnd Sub复制以上代码后，f5，就会打开一个word，另存为即可。专心-专注-专业