文 / 一周進步 · 水韜
又到學期末了，你們一定需要這個。
大學時候，我寫了篇推文，是關於PPT在大綱模式下快速轉換Word的文章，異常火爆，全網閱讀達到15W+……
收穫好評的同時，也有一片小夥伴在後臺哭訴：「沒有大綱模式怎麼辦？？」
當時有考慮用其他的方法來尋求答案，但終究沒找到一個完美的，考慮到去年文章裡有些技巧存在局限，沒能100%解決小夥伴們的疑問，半年過後，決定推出這篇 # PPT 轉 Word 2.0 # 。
01.引言
相信大家大學都上過選修課，而選修課的考試，因為可以抄老師發的PPT，答案基本上都可以找到，分數往往都不會太低。
當然，前提是：把老師的PPT整理列印出來。
而往往老師給我們的PPT，往往是這樣子的 ↓↓↓
我仔細看了看，144頁……心態崩了
然後看了看朋友，PPT有5個，每個的頁數都是100+，心情逐漸平復……
相信很多小夥伴在這個時候會抱怨一句：「怎麼可以這麼多，這PPT有毒啊……」，然後就開始一頁一頁地看內容，再複製粘貼。
PPT與word之間的瘋狂切換，宛如Office高手。
但是，這種做法，到最後，只會讓你崩潰掉。
那怎麼又快又準確的將頁數100+的PPT快速轉換為Word呢？接下來騷操作了，快拿出小本本，做筆記。
02.準備工作
在對PPT文件處理之前，我們需要充分了解我們手頭上PPT課件類型，了解視圖格式，這點要提前弄清楚，根據不同模式會有不同的操作技巧。
①大綱模式
大學課件PPT，絕大多數是Word大綱模式下，導入PPT中後，再添加一些簡單樣式，這種製作方法效率非常的高，但是顏值非常的低。
②文本框模式
還有一些課件就是由多個獨立的文本框組成，這種時候視圖格式裡就沒有文本大綱。
注意
操作非常得簡單粗暴
03.創建講義法
第一步：創建講義
1.找到文件選項卡
2.選擇導出
3.點擊創建講義
4.選擇 只使用大綱
這個時候我們會得到：一份亂碼的Word，保留了PPT文字原格式，頁數：74頁，字數11329字。
第二步：清楚文字格式
1.全選文字
2.找到清楚文字格式按鈕，點它！！
見證奇蹟的時候到了時候到了。
現在的Word變成了：20頁，11189個字，字體形式統一，但是在Word裡，發現了很多很多的空格！！！
第三步：消除空格
1.快捷鍵 Ctrl+H，進行替換
2.替換【^p^p】為【^p】
3.重複幾次【全部替換】，直到無法替換為止
最終的Word：10頁，格式統一，再簡單地刪除了一些無關緊要的內容，最終字數為7933字。
第四步：保存，列印
04.VBA大法好
在去年，評論區一片小夥伴在問我：「沒有大綱模式怎麼快速轉為Word呢？」
去年我的答案是：「這個，可能真的沒辦法。」
今年我的答案是：「很簡單，依舊是一分鐘。」
這裡我們要用到的騷操作是—— vba。
第一步：Alt + F11 進入vba界面
第二步：創建模塊
在菜單欄找到插入，選擇模
第三部：引用 VBA Project
找到工具選項卡，找到引用。
在這裡，我們會看到很多中文件類型，我們找到Microsoft Word 16.0 Object Library，可根據電腦裡office版本選擇13/16。
第四部：複製代碼
複製代碼，在模塊中粘貼。
代碼如下 ↓
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
P.s：多複製幾次噢，不要漏
第五步：導出文檔
單擊F5，彈出Word文檔，保存即可。
結語
記得去年那篇文章發出來後，很多朋友使用過後都轉發了，想必大家也是受到選修考試摧殘過太多次了，忽然出現這麼一個騷操作，看來 PPT快速轉Word 對大家真的有用。
今天的VBA的用法，在突破了大綱模式的局限後，實現了PPT文檔的快速轉換，在測試了30個PPT課件後，我終於敢寫成推文，將這個實用的技巧分享給大家了。
分享完畢，希望有助。