100頁PPT轉換為Word文檔,我1分鐘就搞定了~

「將這份PPT，10分鐘內容轉換為Word文檔」，聽到這句話是不是覺得很崩潰吶，別說10分鐘，1小時估計都很玄，其實是有捷徑可走的。

將PPT轉為Word是有一個使用前提即PPT不是直接從Word文檔導入過去的。也就是說在PPT中輸入文本時，是一定要藉助文本框的，本期Word妹與大家分享的就是這種PPT的轉換方式。

第一步：打開PPT中VBA界面並輸入代碼

首先按Alt+F11打開相應的VBA界面，這時選擇選項卡中的插入——模塊打開相應的界面，如下圖所示：

然後選擇工具選項卡下的引用，如下圖所示：

之後我們在相應的界面中找到類型為「Microsoft Word 16.0 ObjectLibrary」，點擊確定。

注意：如果是Office2013版的就找到13即可。

最後在模塊中輸入以下代碼並按F5運行

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

下面看下具體操作：

第二步：清除文本格式

運行代碼之後，文本就會本提取出來，但是比較亂，有很多的空行，這時利用Ctrl+H打開查找和替換對話框，之後在查找中^p^p，在替換中輸入^p，如果空行比較多，多替換幾次即可。

具體操作如下：

怎麼樣，今天的方法不錯吧，若有什麼問題歡迎在下方留言。

想要更多精品乾貨，請持續關注微信公眾號 Word技巧（ID：WordSkill）↓↓↓

●進入公眾號輸入1090發送，即可閱讀本文

●進入公眾號輸入m發送，獲取全部文章目錄

喜歡我就贊贊我❤️