在日常工作中，有時(shí)我們需要把PPT幻燈片轉(zhuǎn)換為word文檔備份等，這該如何操作呢？下面本文就來(lái)講解一下利用一個(gè).vbs可執(zhí)行文件簡(jiǎn)單完美轉(zhuǎn)換PPT幻燈片到word文檔的方法。

1、首先，我們需要制作一個(gè).vbs可執(zhí)行程序。將下面代碼復(fù)制到TXT文檔中，更改后綴名為.vbs即可。

'綁定到本地計(jì)算機(jī)

strComputer = "."

'如果發(fā)生錯(cuò)誤，繼續(xù)執(zhí)行

on error resume next

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

msgbox "此腳本可以批量將ppt文件中的文本轉(zhuǎn)換為word文件。圖片、表格等內(nèi)容則自動(dòng)跳過(guò)" & vbcrlf & "使用時(shí)請(qǐng)把所有要轉(zhuǎn)換的ppt文件復(fù)制到目錄c:\下。雙擊運(yùn)行此文件即可。" & vbcrlf & "運(yùn)行此腳本需要本機(jī)上安裝了office"

'創(chuàng)建一個(gè)word對(duì)象

Set objWord = CreateObject("Word.Application")

'創(chuàng)建一個(gè)ppt對(duì)象

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

'如果文件的擴(kuò)展名是ppt

If objFile.Extension = "ppt" Then

pptApp.visible = true

'打開這個(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è)開始循環(huán)。Slides.Count即幻燈片的數(shù)量

For i = 1 To pptSelection.Slides.Count

'從每一張ppt的第一個(gè)文本框開始循環(huán)，Shapes.Count，即每張幻燈片中文本框的數(shù)量

For j = 1 To pptSelection.Slides(i).Shapes.Count

'如果是每頁(yè)的第一行，就按標(biāo)題處理，變成黑體字

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è)回車

objSelection.TypeText vbcrlf

Next

next

'關(guān)閉這個(gè)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 "錯(cuò)誤：c:\下沒有發(fā)現(xiàn)ppt文件!"

End If

Next

pptApp.quit

2、怎樣使用程序?qū)�PPT轉(zhuǎn)換為Word 文檔?

將你需要轉(zhuǎn)換的PPT文檔放到C:\ 的根目錄下，雙擊我們剛才生成的 .vbs 程序，彈出下面的對(duì)話框，點(diǎn)擊“確定”。

之后稍等片刻(根據(jù)PPT 文檔的大小可能等待的時(shí)間有所區(qū)別)。就會(huì)自動(dòng)打開一個(gè)已經(jīng)生成的Word 文檔，怎么樣，你看到了什么?轉(zhuǎn)換完成，彈出下面的對(duì)話框，點(diǎn)擊確定后收工。

這個(gè)程序無(wú)需安裝，直接運(yùn)行，文件也小。在轉(zhuǎn)換前最好將之前打開的Word 和PowerPoint程序關(guān)閉。

由于本程序轉(zhuǎn)換后的Word文檔中文字順序并未排版，因此尚需用戶自行調(diào)整。但是這已經(jīng)讓我們事半功倍了。

相關(guān)內(nèi)容：

PPT2003轉(zhuǎn)換為word文檔的方法

PPT2007轉(zhuǎn)換為word文檔的方法