主頁 > 知識庫 > VBS實現(xiàn)DOC轉為文本文檔的代碼

VBS實現(xiàn)DOC轉為文本文檔的代碼

熱門標簽:龍巖400電話申請 外呼系統(tǒng)說話聲音小怎么辦 智云億呼電話機器人 天津智能外呼系統(tǒng)排名 機器人打電銷適用于美業(yè)嗎 上海辦理400電話選號 外呼系統(tǒng)群 墨西哥地圖標注app 企業(yè)400電話辦理價錢低
打開記事本輸入: 
復制代碼 代碼如下:

ON ERROR RESUME NEXT 
set args=wscript.arguments 
arg=args(0) 
set w=createobject("word.application") 
set fso=createobject("scripting.filesystemobject") 
set docfile=fso.getfile(arg) 
docpath=docfile.path 
pt=left(docpath,Instrrev(docpath,"\")) 
txtpn=ptleft(docfile.name,instrrev(docfile.name,"."))"txt" 
w.documents.open docpath,,,,,,,,,,,false 
w.documents(docpath).activate 
w.activedocument.saveas txtpn,2 
w.activedocument.close 
w.quit 
set w=nothing 

保存到“C:\WINDOWS\doc2txt.vbe”。
記事本編輯
createobject("wscript.shell").regwrite "HKCU\docfile\Shell\\轉為文本文檔\Command\","wscript.exe C:\WINDOWS\doc2txt.vbe"
記事本編輯
createobject("wscript.shell").regwrite "HKCU\docfile\Shell\\轉為文本文檔\Command\","wscript.exe C:\WINDOWS\doc2txt.vbe %1"
以上內(nèi)容保存為*.VBS,運行后,在doc文件上右擊,就可以看到“轉換為文本文檔”項,點擊就可以快速轉換為文本文檔。
以上內(nèi)容在WIN2000加WORD2003下通過測試。
我在試驗過程中發(fā)現(xiàn),寫入注測表的腳本運行后DOC右鍵有時并沒有出現(xiàn)轉換菜單,你可以將第二個腳本中的docfile改為*,就是在所有類型文件右鍵菜單添加轉換項。
或者將doc2txt.vbe文件放到"sendto"文件夾,在doc文件上右擊選“發(fā)送到~doc2txt.vbe”,同樣可以轉換。
此法同樣可以將HTML,RTF等文件轉換為文本文檔。

標簽:青島 錫林郭勒盟 黃山 齊齊哈爾 承德 阜新 麗水 鄂爾多斯

巨人網(wǎng)絡通訊聲明:本文標題《VBS實現(xiàn)DOC轉為文本文檔的代碼》,本文關鍵詞  VBS,實現(xiàn),DOC,轉為,文本,文檔,;如發(fā)現(xiàn)本文內(nèi)容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《VBS實現(xiàn)DOC轉為文本文檔的代碼》相關的同類信息!
  • 本頁收集關于VBS實現(xiàn)DOC轉為文本文檔的代碼的相關信息資訊供網(wǎng)民參考!
  • 推薦文章