VBS如何實現DOC轉為文本文檔

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

打開記事本輸入： 

代碼如下:

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\\轉為文本文檔\Command\","wscript.exe C:\WINDOWS\doc2txt.vbe"

記事本編輯

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

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

感謝你能夠認真閱讀完這篇文章，希望小編分享的“VBS如何實現DOC轉為文本文檔”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關注億速云行業資訊頻道，更多相關知識等著你來學習!