聲明：本文首發CSDN，轉載請標明出處，謝謝。
PPT格式轉WORD格式，方便打印
軟件環境：Office 2007<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
1. 打開PPT文件
雙擊打開需要裝換的PPT文件。
2. 去掉PPT背景顏色
目的是方便打印觀看，節省打印墨水，節省存儲空間。具體方法如下：
按住“Ctrl”+“A”，全選全部幻燈片。
“設計” 選項卡—>單擊“背景樣式”按鈕—>選擇白色。
“設計” 選項卡—>鉤選“隱藏背景圖形”。
3. PPT格式轉WORD格式
單擊“office按鈕”—>選擇“發佈”選項—>單擊“使用Microsoft Office Word創建講義”選項。彈出一個名爲“發送到Microsoft Office Word”的對話框。
彈出的對話框中，在“備註在幻燈片旁”和“空行在幻燈片旁”任選其中一個選項，然後單擊“確定”按鈕。Office自動打開一個新的WORD文件，並實現裝換。
但是，該轉換效果不是十分理想。因而，我們需要對其進行優化。
4. 優化轉換結果
4.1. 調整頁面大小
“頁面佈局”選項卡—>單擊“頁邊距”按鈕—>選擇“窄”選項。
4.2. 調整紙張方向
“頁面佈局”選項卡—>單擊“紙張方向”按鈕—>選擇“橫向”選項。
4.3. 刪除多餘的列
只保留中間PPT的那一列，刪除左右兩列。刪除一列的方法如下：
選中一列，單擊鼠標右鍵，選擇“刪除列”。
這樣，就只剩下包含PPT內容的一列了。
4.4. 去除表格格式
“佈局”選項卡—>單擊“轉換爲文本”按鈕。
彈出“表格轉換文爲本”對話框。
保留默認選項即可，單擊“確定”按鈕。
這樣，表格格式就去掉了。
4.5. 去除段落回車符
按住“Ctrl”+“H”鍵，彈出“查找和替換”對話框。
鼠標點擊“查找內容”，使之變成可輸入狀態。
輸入段落標記符“^p”，或者單擊“更多”按鈕，再單擊“特殊格式”按鈕，選擇“段落標記”。
這樣，就把段落回車符完全去掉了。
4.6. 調整圖片大小
按住“Alt”+“F8”，調出“宏”對話框。
輸入“宏名”，這裏輸入“SetPicSize”，單擊“創建”按鈕。
宏的代碼定義如下：
|
Sub SetPicSize() ' ' SetPicSize 宏 ' ' Dim picWidth Dim picHeight picWidth = 190 '圖片寬度 picHeight = 160 '圖片高度
Dim j '計數圖片個數 For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型爲inlineshapes ActiveDocument.InlineShapes(j).Width = picWidth '設置寬度 ActiveDocument.InlineShapes(j).Height = picHeight '設置高度 Next j End Sub |
按住“Ctrl”+“S”保存該宏，再按住“F5”運行即可。
5. 效果展示
經過以上步驟的處理，現在的WORD文檔已經顯示每頁 4 X 3 = 12 屏PPT。示例圖如下：
<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />
6. 保存WORD文件
單擊“office按鈕”—>選擇“另存爲”選項—>單擊“Word 97-2003文檔”選項。彈出一個 “另存爲”的對話框。
輸入相關內容，保存即可。