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

《将PPT中所有文本框里的文字提取出来.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、将PPT中所有文本框里的文字提取出来打开PPT，按ALT+F11打开VBA编辑器，在左面的工程视图里点击右键，选择插入->模块，添加一个模块，名字都不用改。然后点击顶部的“工具”菜单，选择引用，找“MicrosoftWordX.0ObjectLibrary”（其中X与你的OFFICE版本有关），钩上，点确定将下列代码贴到刚建立的模块里，按F5即可SubMain()    OnErrorResumeNext    DimtempAsNewWord.Document,tmpShapeAsShape,tmpSlideAsSlide 

2、   ForEachtmpSlideInActivePresentation.Slides        ForEachtmpShapeIntmpSlide.Shapes            temp.Range().Text=temp.Range()+tmpShape.TextFrame.TextRange.Text        NexttmpShape    NexttmpSlide    temp.Application.Visible=TrueEndSub复制以上代码后，f5，就会打开一个word，另存为即可。