2007-08-09 10:39:58 來(lái)源:
IT168(北京)
網(wǎng)友評論 18 條進(jìn)入論壇應用程序完美轉換PPT 到Word 文檔
說(shuō)起來(lái)很簡(jiǎn)單，就是你把下面這段代碼文字復制到Windows 文本中，將文件保存為 .vbs生成一個(gè)可執行程序。保存在任何一個(gè)地方，比如桌面。這段代碼也是我在無(wú)意中發(fā)現的，但使用后感覺(jué)已經(jīng)很好，并且簡(jiǎn)單。
'綁定到本地計算機
strComputer = "."
'如果發(fā)生錯誤，繼續執行
on error resume next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
msgbox "此腳本可以批量將ppt文件中的文本轉換為word文件。圖片、表格等內容則自動(dòng)跳過(guò)" & vbcrlf & "使用時(shí)請把所有要轉換的ppt文件復制到目錄c:\下。雙擊運行此文件即可。" & vbcrlf & "運行此腳本需要本機上安裝了office"
'創(chuàng )建一個(gè)word對象
Set objWord = CreateObject("Word.Application")
'創(chuàng )建一個(gè)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
'打開(kāi)這個(gè)ppt文件
Set pptSelection = pptApp.Presentations.Open("c:\" & objFile.FileName & "." & objFile.Extension)
'如果想讓腳本處理得快些，把下面一行改為“objWord.Visible = false”,不推薦。
objWord.Visible = true
'新建一個(gè)word，以保存ppt中的文本
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
'從ppt的第一頁(yè)開(kāi)始循環(huán)。Slides.Count即幻燈片的數量
For i = 1 To pptSelection.Slides.Count
'從每一張ppt的第一個(gè)文本框開(kāi)始循環(huán)，Shapes.Count，即每張幻燈片中文本框的數量
For j = 1 To pptSelection.Slides(i).Shapes.Count
'如果是每頁(yè)的第一行，就按標題處理，變成黑體字
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
'加一個(gè)回車(chē)
objSelection.TypeText vbcrlf
Next
next
'關(guān)閉這個(gè)ppt文件
pptSelection.close
'保存word文件。
objDoc.SaveAs("c:\" & objFile.FileName & ".doc")
'如果不需要關(guān)閉word，把下面這一行刪掉
objDoc.close
'如果不想彈出消息框，把下面這一行刪掉
msgbox "轉換后的word已保存在c:\" & objFile.FileName & ".doc"
else '沒(méi)有ppt文件
'msgbox "錯誤：c:\下沒(méi)有發(fā)現ppt文件！"
End If
Next
pptApp.quit
怎樣使用程序將PPT轉換為Word 文檔?
將你需要轉換的PPT文檔放到C:\ 的根目錄下，雙擊我們剛才生成的 .vbs 程序，彈出下面的對話(huà)框，點(diǎn)擊“確定”。
之后稍等片刻(根據PPT 文檔的大小可能等待的時(shí)間有所區別)。就會(huì )自動(dòng)打開(kāi)一個(gè)已經(jīng)生成的Word 文檔，怎么樣，你看到了什么?轉換完成，彈出下面的對話(huà)框，點(diǎn)擊確定后收工。
這個(gè)程序無(wú)需安裝，直接運行，文件也小。在轉換前最好將之前打開(kāi)的Word 和PowerPoint程序關(guān)閉。
由于本程序轉換后的Word文檔中文字順序并未排版，因此尚需用戶(hù)自行調整。但是這已經(jīng)讓我們事半功倍了。
