復制代碼代碼如下:
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等文件轉換為文本文檔。
