PPT簡報怎樣轉換成Word文件

1

執行PowerPoint 2003軟體，單擊選單欄的「檔案」按鈕，開啟的快捷選單指向「傳送」，在下一級選單中單擊「Microsoft Office Word」命令

2

彈出「傳送到 Microsoft Office Word」對話方塊，選擇您喜歡的版式介面，然後在「將幻燈片新增到 Microsoft Office Word 文件」中一欄選擇「貼上」或「貼上連結」方式

1

執行PowerPoint 2010軟體，單擊左上角的「檔案」按鈕，出來的介面單擊左側的「儲存並行送」選項

2

在檔案型別欄下單擊「建立講義」，然後在右側介面中單擊「建立講義」按鈕

3

彈出跟PowerPoint 2003一樣的介面，設定完成後單擊「確定」按鈕即可

1

在桌面上新建一個文字文件，將下面的程式碼複製進去

'係結到本地計算機

strComputer = "."

'如果發生錯誤，繼續執行

on error resume next

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

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

2

在選單欄點選「檔案」——「另存為」命令

3

指定好要儲存檔案的位置，在檔名框中輸入任意名稱+vbs擴充套件名，然後單擊「儲存」按鈕

4

此時會在桌面上生成vbs指令碼檔案，將要轉換的PPT簡報放到C槽根目錄，並執行vbs指令碼檔案

5

彈出以下提示對話方塊，直接單擊「確定」按鈕即可

6

最後自動開啟轉換好的Word 文件並彈出以下提示對話方塊，單擊「確定」按鈕