Word 轉(zhuǎn)換為PPT，也許你很容易做到，但是反之把PPT轉(zhuǎn)換為Word你知道嗎?我之前一直用一個很笨的方法，就是把里面的文字一段一段粘出來。文字少了還好說，要是文字多了，那個工作量就可想而知了......
PowerPoint 2003 中的轉(zhuǎn)換
大家可能最為常用的是下面這種方法：(在Microsoft Office PowerPoint 2003版)
1、首先打開需要轉(zhuǎn)換成中文Word文件的中文PowerPoint文件，然后鼠標左鍵依次選擇“文件→發(fā)送→Microsoft Word”命令項。
PowerPoint 2003
2.完成選擇之后，系統(tǒng)首先會出現(xiàn)“撰寫”對話框，此時應(yīng)當(dāng)在“在Microsoft Word使用的版式”欄中選擇一種版面的配置，然后在“將幻燈片添加到Microsoft Word文檔”欄中選擇將中文PowerPoint的幻燈片轉(zhuǎn)換到中文Word文件時的變化方式。
3.完成上述選擇之后，接著使用鼠標左鍵單擊“確定”按鈕，即可啟動中文Word，然后自動實現(xiàn)將中文PowerPoint文件轉(zhuǎn)換到中文Word文件中，此時只需要在中文Word中稍微進行一些修改，即可完成轉(zhuǎn)換工作。
但是經(jīng)過我多次試用，其轉(zhuǎn)換效果是相當(dāng)?shù)牟涣钊藵M意。
PowerPoint 2007 中的轉(zhuǎn)換
在Microsoft Office PowerPoint 2007版中，這個功能依然沒有得到改善。只是在“發(fā)送”里面卻找不到Microsoft Word命令項了。
PowerPoint 2007中的“發(fā)送”沒有了轉(zhuǎn)換為Word 的選項
微軟Office 2007 的最大的失敗就是對界面的改變，他幾乎完全顛覆了我們使用多年的習(xí)慣，但是當(dāng)你逐步了解了之后卻又發(fā)現(xiàn)，根本沒有實質(zhì)性的改變，這也是為什么更多的網(wǎng)友不愿意接受Office 2007的理由之一。
Microsoft Word命令項的確被轉(zhuǎn)移了地方，點擊“發(fā)布”——點擊“使用Microsoft Office Word創(chuàng)建講義”菜單。
發(fā)布中的創(chuàng)建Word 講義
看到了什么?一個完全與PowerPoint 2003一樣的對話框，甚至沒有任何修飾，那么這個能實現(xiàn)PPT到Word 的轉(zhuǎn)換嗎?顯然他與PowerPoint 2003 轉(zhuǎn)換的效果是一樣的，也以為著這一功能沒有得到任何提升。同樣是微軟的辦公平臺，在互換上怎么就這么難?
與2003版沒有任何變化
一般細心的用戶可能會在制作PPT的時候，首先使用Word創(chuàng)建文檔，一式兩份，這樣以備不時之需，看來也是懼怕萬一有人需要Word 文檔，你再整理可能就會抓瞎。
說了這么多，究竟有沒有什么方法能夠完美將PPT轉(zhuǎn)換為Word文檔?我只能遺憾的告訴你，
目前還真是沒有什么完美解決方案。所謂的完美，當(dāng)然是轉(zhuǎn)換的文檔你幾乎不用修改就能使用。
雖然我說了上面的話，你也用不著馬上離開，絕不意味著下面的方法對你沒有任何作用!而這種方法恰恰是最簡單的，也是最行之有效的方法，不信請繼續(xù)往下看。
應(yīng)用程序完美轉(zhuǎn)換PPT 到Word 文檔
說起來很簡單，就是你把下面這段代碼文字復(fù)制到Windows 文本中，將文件保存為 .vbs生成一個可執(zhí)行程序。保存在任何一個地方，比如桌面。這段代碼也是我在無意中發(fā)現(xiàn)的，但使用后感覺已經(jīng)很好，并且簡單。
'綁定到本地計算機
strComputer = "."
'如果發(fā)生錯誤，繼續(xù)執(zhí)行
on error resume next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & " ootcimv2")
msgbox "此腳本可以批量將ppt文件中的文本轉(zhuǎn)換為word文件。圖片、表格等內(nèi)容則自動跳過" & vbcrlf & "使用時請把所有要轉(zhuǎn)換的ppt文件復(fù)制到目錄c:下。雙擊運行此文件即可。" & vbcrlf & "運行此腳本需要本機上安裝了office"
'創(chuàng)建一個word對象
Set objWord = CreateObject("Word.Application")
'創(chuàng)建一個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的第一頁開始循環(huán)。Slides.Count即幻燈片的數(shù)量
For i = 1 To pptSelection.Slides.Count
'從每一張ppt的第一個文本框開始循環(huán)，Shapes.Count，即每張幻燈片中文本框的數(shù)量
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
'關(guān)閉這個ppt文件
pptSelection.close
'保存word文件。
objDoc.SaveAs("c:" & objFile.FileName & ".doc")
'如果不需要關(guān)閉word，把下面這一行刪掉
objDoc.close
'如果不想彈出消息框，把下面這一行刪掉
msgbox "轉(zhuǎn)換后的word已保存在c:" & objFile.FileName & ".doc"
else '沒有ppt文件
'msgbox "錯誤：c:下沒有發(fā)現(xiàn)ppt文件!"
End If
Next
pptApp.quit
點擊此處直接下載該程序>>>
怎樣使用程序?qū)PT轉(zhuǎn)換為Word 文檔?
將你需要轉(zhuǎn)換的PPT文檔放到C: 的根目錄下，雙擊我們剛才生成的 .vbs 程序，彈出下面的對話框，點擊“確定”。