Word 轉換爲PPT，可能你很輕率做到，然而反之把PPT轉換爲Word你懂得嗎?我之前始終用一個很笨的措施，即便把裏面的文字一段一段粘出來。文字少了還好說，要是文字多了，那個工作量就顯而易見了......
PowerPoint 2003 中的轉換
大家可能最爲常用的是下面這種措施：(在Microsoft Office PowerPoint 2003版)
1、率先敞開必需轉換成中文Word文件的中文PowerPoint文件，然後鼠標左鍵順次抉擇“文件→發送→Microsoft Word”號召項。
PowerPoint 2003
2.告終抉擇爾後，系統率先會揭示“撰寫”對話框，此刻該當在“在Microsoft Word利用的版式”欄入抉擇一種版面的搭配，然後在“將幻燈片增加到Microsoft Word文檔”欄入抉擇將中文PowerPoint的幻燈片轉換到中文Word文件時的改變措施。
3.告終上述抉擇爾後，隨後利用鼠標左鍵單擊“確定”按鈕，即可啓用中文Word，然後積極告終將中文PowerPoint文件轉換到中文Word文件中，此刻只必需在中文Word中輕微舉行一些修正，即可告終轉換工作。
然而穿越我多次試用，其轉換收穫是相當的不令人順心。
PowerPoint 2007 中的轉換
在Microsoft Office PowerPoint 2007版中，這秉功能依舊未曾獲得改進。只是在“發送”裏面卻找不到Microsoft Word號召項了。
PowerPoint 2007中的“發送”未曾了轉換爲Word 的選項
微軟Office 2007 的最大的失利即便對界面的改換，他幾乎全面推翻了我們利用多年的適應，然而當你逐漸打聽了爾後卻又覺察，大約未曾性質性的改換，這也是爲什麼更多的網友不甘心接受Office 2007的原因之一。
Microsoft Word號召項確乎被遷移了地方，點擊“公佈”——點擊“利用Microsoft Office Word創立講義”菜單。
公佈中的創立Word 講義
看到了什麼?一個全面與PowerPoint 2003一樣的對話框，甚至未曾任何修飾，那麼這個能告終PPT到Word 的轉換嗎?顯明他與PowerPoint 2003 轉換的收穫是一樣的，也感受着這一功能未曾得就任何晉級。同樣是微軟的辦公正臺，在互換上怎麼就這麼難?
與2003版未曾任何改變
等閒精細的用戶可能會在製造PPT的時候，率先利用Word創立文檔，一式兩份，這麼以備不時之需，看來也是生怕萬一有人必需Word 文檔，你再整理可能就會抓瞎。
說了這麼多，究竟有未曾什麼措施能夠健全將PPT轉換爲Word文檔?我只能缺憾的告訴你，
現在還真是未曾什麼健全處理計劃。所謂的健全，當然是轉換的文檔你幾乎無須修正就能利用。
固然我說了上面的話，你也用不着即刻脫離，絕不料味着下面的措施對你未曾任何作用!而這種措施恰恰是最容易的，也是最卓有收穫的措施，不信請繼續往下看。
利用過程健全轉換PPT 到Word 文檔
說起來很容易，即便你把下面這段代碼文字複製到Windows 文本中，將文件保留爲 .vbs生成一個可施征途序。保留在任何一個地方，例如桌面。這段代碼也是我在無意中覺察的，但利用後感受曾經很好，並且容易。
'綁定到本地計算機
strComputer = "."
'萬一發生訛謬，繼續厲行
on error resume next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & " ootcimv2")
msgbox "此腳本能夠批量將ppt文件中的文本轉換爲word文件。圖片、表格等內容則積極跳過" & vbcrlf & "利用時請把所有要轉換的ppt文件複製到目錄c:下。雙擊運行此文件即可。" & vbcrlf & "運行此腳本必需本機上安裝了office"
'創立一個word對象
Set objWord = CreateObject("Word.Application")
'創立一個ppt對象
Set pptApp = CreateObject("PowerPoint.application")
'獲得c:目錄下的文件聚集
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In FileList
'萬一文件的伸展名是ppt
If objFile.Extension = "ppt" Then
pptApp.visible = true
'敞開這個ppt文件
Set pptSelection = pptApp.Presentations.Open("c:" & objFile.FileName & "." & objFile.Extension)
'萬一想讓腳本處理得快些，把下面一行改爲“objWord.Visible = false”,不評比。
objWord.Visible = true
'修建一個word，以保留ppt中的文本
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
'從ppt的第一頁開始循環。Slides.Count即幻燈片的數量
For i = 1 To pptSelection.Slides.Count
'從每一張ppt的第一個文本框開始循環，Shapes.Count，即每張幻燈片中文本框的數量
For j = 1 To pptSelection.Slides(i).Shapes.Count
'萬一是每頁的第一行，就按題目處理，變成黑體字
if i =1 then
objSelection.Font.Name = "黑體"
'把文本框中的文字增加到word中
objSelection.TypeText pptSelection.Slides(i).Shapes
(j).TextFrame.TextRange.text
objSelection.TypeParagraph()
objSelection.Font.Name = "宋體"
end if
objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
'加一個回車
objSelection.TypeText vbcrlf
Next
next
'關閉這個ppt文件
pptSelection.close
'保留word文件。
objDoc.SaveAs("c:" & objFile.FileName & ".doc")
'萬一無須要關閉word，把下面這一行剔除
objDoc.close
'萬一不想彈出消息框，把下面這一行剔除
msgbox "轉換後的word已保留在c:" & objFile.FileName & ".doc"
else '未曾ppt文件
'msgbox "訛謬：c:下未曾覺察ppt文件!"
End If
Next
pptApp.quit
點擊這裏直接下載該過程>>>
怎樣利用過程將PPT轉換爲Word 文檔?
將你必需轉換的PPT文檔放到C: 的根目錄下，雙擊我們剛纔生成的 .vbs 過程，彈出下面的對話框，點擊“確定”。
爾後稍等剎那(依據PPT 文檔的大小可能期待的工夫有所差異)。就會積極敞開一個曾經生成的Word 文檔，怎麼樣，你看到了什麼?轉換告終，彈出下面的對話框，點擊確定後收工。
這個過程無需安裝，直接運行，文件也小。在轉換前良好將之前敞開的Word 和PowerPoint過程關閉。
由於本過程轉換後的Word文檔中文字次序並未排版，因而尚需用戶自行調劑。然而這曾經讓我們事半功倍了
本文轉自http://www.2ppt.cn/Article/157.html