這篇文章主要介紹了VBS如何實(shí)現(xiàn)DOC轉(zhuǎn)為文本文檔，具有一定借鑒價(jià)值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

成都創(chuàng)新互聯(lián)一直在為企業(yè)提供服務(wù)，多年的磨煉，使我們?cè)趧?chuàng)意設(shè)計(jì)，全網(wǎng)整合營銷推廣到技術(shù)研發(fā)擁有了開發(fā)經(jīng)驗(yàn)。我們擅長(zhǎng)傾聽企業(yè)需求，挖掘用戶對(duì)產(chǎn)品需求服務(wù)價(jià)值，為企業(yè)制作有用的創(chuàng)意設(shè)計(jì)體驗(yàn)。核心團(tuán)隊(duì)擁有超過10年以上行業(yè)經(jīng)驗(yàn)，涵蓋創(chuàng)意，策化，開發(fā)等專業(yè)領(lǐng)域，公司涉及領(lǐng)域有基礎(chǔ)互聯(lián)網(wǎng)服務(wù)川西大數(shù)據(jù)中心、成都app軟件開發(fā)公司、手機(jī)移動(dòng)建站、網(wǎng)頁設(shè)計(jì)、網(wǎng)絡(luò)整合營銷。

打開記事本輸入：

代碼如下:

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=pt&left(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\\轉(zhuǎn)為文本文檔\Command\","wscript.exe C:\WINDOWS\doc2txt.vbe"

記事本編輯

createobject("wscript.shell").regwrite "HKCU\docfile\Shell\\轉(zhuǎn)為文本文檔\Command\","wscript.exe C:\WINDOWS\doc2txt.vbe %1"

以上內(nèi)容保存為*.VBS，運(yùn)行后，在doc文件上右擊，就可以看到“轉(zhuǎn)換為文本文檔”項(xiàng)，點(diǎn)擊就可以快速轉(zhuǎn)換為文本文檔。
以上內(nèi)容在WIN2000加WORD2003下通過測(cè)試。
我在試驗(yàn)過程中發(fā)現(xiàn)，寫入注測(cè)表的腳本運(yùn)行后DOC右鍵有時(shí)并沒有出現(xiàn)轉(zhuǎn)換菜單，你可以將第二個(gè)腳本中的docfile改為*，就是在所有類型文件右鍵菜單添加轉(zhuǎn)換項(xiàng)。
或者將doc2txt.vbe文件放到"sendto"文件夾，在doc文件上右擊選“發(fā)送到～doc2txt.vbe”，同樣可以轉(zhuǎn)換。
此法同樣可以將HTML,RTF等文件轉(zhuǎn)換為文本文檔。

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“VBS如何實(shí)現(xiàn)DOC轉(zhuǎn)為文本文檔”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司，，關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來學(xué)習(xí)!

本文標(biāo)題：VBS如何實(shí)現(xiàn)DOC轉(zhuǎn)為文本文檔-創(chuàng)新互聯(lián)
網(wǎng)頁URL：http://www.weahome.cn/article/dpgshh.html