怎樣完整地將PPT轉為WORD

文章插圖
我也曾經找過這個問題,但是找到的最好的方法結果也只是將全部的文本框中的內容提取出來,而圖片其他的就沒有辦法了~其它的方法就只能將大綱給弄出來,而并不是全部的文本 。
其實你找的這篇文章內容挺全的,那個.vbs的文檔就是實現文本轉換的方法 。但是我也不知道為什么這個不行,我也試了下,不可以~我從別處考來個,都一樣的,但是這個我這里可以的,你試試吧~~
'綁定到本地計算機
strComputer = "."
'如果發生錯誤,繼續執行
on error resume next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
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檔PPT2007:將PPT中的文字轉換成Word文檔的4種方法
1.利用“大綱”視圖
在大綱視圖中可手工保持幻燈片中的文字內容
打開PPT演示文稿,單擊“大綱”,在左側“幻燈片/大綱”任務窗格的“大綱”選項卡里單擊一下鼠標,按“Ctrl+A”組合健全選內容,然后使用“Ctrl+C”組合鍵或右鍵單擊在快捷菜單中選擇“復制”命令,然后粘貼到Word里 。
小提示:
這種方法會把原來幻燈片中的行標、各種符號原封不動的復制下來 。
2.利用“發送”功能巧轉換
打開要轉換的PPT幻燈片,單擊“文件”→“發送”→“Microsoft Word”菜單命令 。
然后選擇“只使用大綱”單選按鈕并單擊“確定”按鈕,等一會就發現整篇PPT文檔在一個Word文檔里被打開 。
小提示:
在轉換后會發現Word有很多空行 。在Word里用替換功能全部刪除空行可按“Ctrl+H”打開“替換”對話框,在“查找內容”里輸入“^p^p”,在“替換為”里輸入“^p”,多單擊幾次“全部替換”按鈕即可 。(“^”可在英文狀態下用“Shift+6”鍵來輸入 。)
3.利用“另存為”直接轉換
打開需要轉換的幻燈片,點擊“文件”→“另存為”,然后在“保存類型”列表框里選擇存為“rtf”格式 。現在用Word打開剛剛保存的rtf文件,再進行適當的編輯即可實現轉換 。
4.PPTConverttoDOC軟件轉換
PPTConverttoDOC是綠色軟,解壓后直接運行,在運行之前請將Word和PPT程序都關閉 。
選中要轉換的PPT文件,直接拖曳到“PPTConverttoDOC”程序里 。
單擊工具軟件里的“開始”按鈕即可轉換,轉換結束后程序自動退出 。
小提示:
如果選中“轉換時加分隔標志”,則會在轉換好的word文檔中顯示當前內容在原幻燈片的哪一頁 。
轉換完成后即可自動新建一個Word文檔,顯示該PPT文件中的所有文字
如何將PPT文件轉換成word文件你吧PPT切換到大綱視圖 然后把大綱里邊的內容復制 然后粘貼到WORD里邊就行了 我覺得你應該是想要這些文字的東西了吧 這個辦法可以辦到 如果你還想要圖片的話 就再吧圖片單獨復制出來 然后貼到WORD里邊就行了 祝你成功 。。。還有 通過改變后綴名不能轉換成WORD
如何將ppt轉換為word文檔?打開PPT,點菜單的“文件”,在下拉出來的選項中選擇“發送”,再向右指向“microsoft office word”,在彈出的窗口中,選擇一下備注的位置,確定后,就會彈同word,開始轉換,完成后,在word中新起名字保存即可 。
怎么將 ppt文字轉換成word【如何將ppt轉換成希沃課件,如何將ppt轉換成圖片格式的文件】如果頁數不多,你可以直接復制粘貼到word即可完成,但是基本都是文本框的格式 。如果非常多頁,只能建議導出pdf,然后用pdf再ocr轉word 。
- 國有企業有編制嗎,如何判斷一個企業是不是國企
- 聲音管理器總是彈出來,聲音管理器圖標如何刪除
- 怎么制作游戲軟件教程,怎么制作游戲
- 騰達路由器怎么恢復出廠設置后如何設置,如何恢復路由器出廠設置?
- 花束制作要點,手工制作花束教程
- 外賣評價30字通用,外賣評價20字
- 電腦怎么進入編程模式,如何設置快捷指令
- 移動硬盤無法讀取怎么修復,u盤如何加密
- 塌的組詞和拼音,塌的組詞和拼音部首
- ppt翻譯功能怎么用,ppt翻譯成英文
