模塊,添加一個模塊,名字不用改。" /> 麻将三国破解版下载|三国风云麻将
專注企業建站
網絡優化推廣

提取導出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
分享到: 更多
麻将三国破解版下载 sm捆绑美女 聚财略配资 pc蛋蛋 体彩6+1 全国股票配资平台排名 股票融资平台·杨方配资平台 股票推荐每日一股 微博 北京快乐8 刮刮乐 在职研究生和mba的区别 球探篮球比分即时比分 爱上配资 华瑞优配 2019股票配资平台网址 福建快3 海南4+1