<delect id="bb5rt"></delect>
    <cite id="bb5rt"><track id="bb5rt"></track></cite>
      <delect id="bb5rt"><form id="bb5rt"><delect id="bb5rt"></delect></form></delect>

              專注企業建站
              網絡優化推廣

              提取導出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
              分享到: 更多
              特一级精品女人毛片,体育生飞机激情免费视频,天噜啦精品亚洲最大看片,天噜啦在线精品欧美视频,天啪天天在线视频