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

提取導出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
分享到: 更多
麻将三国破解版下载 15选5浙走势图 云南十一选五走势图 天天爱海南麻将v2 一比分app下载苹果 3d试机号后金码 杭州麻将胡牌技巧 大赢家比分即时比分v90 球探体育比分3.0 澳洲幸运10网 德州麻将怎么打 浙江20选5 河北排列7开奖时间 北京麻将攻略 雷速体育分析师 腾讯欢乐麻将胡牌规则 wnba比分直播 360