<small id="ax955"><td id="ax955"></td></small>
<video id="ax955"></video>

    <noscript id="ax955"></noscript>

  1. <meter id="ax955"><bdo id="ax955"><table id="ax955"></table></bdo></meter>

    <table id="ax955"></table>

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

      提取導出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
      分享到: 更多
      欧美人人做人人爱视频,久久综合88熟人妻,国产特级婬片A片AAA毛片A级,韩国精品无码久久一区二区三区,无码熟妇人妻av在线影片