VBS實(shí)現(xiàn)DOC轉(zhuǎn)為文本文檔的代碼
更新時(shí)間：2008年06月02日 20:15:26 作者：
WORD軟雖然可以將doc轉(zhuǎn)為文本文檔，但每次打開WORD都很慢。最好就是通過(guò)右鍵菜單來(lái)快速轉(zhuǎn)換。
打開記事本輸入：
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下通過(guò)測(cè)試。
我在試驗(yàn)過(guò)程中發(fā)現(xiàn)，寫入注測(cè)表的腳本運(yùn)行后DOC右鍵有時(shí)并沒(méi)有出現(xiàn)轉(zhuǎn)換菜單，你可以將第二個(gè)腳本中的docfile改為*，就是在所有類型文件右鍵菜單添加轉(zhuǎn)換項(xiàng)。
或者將doc2txt.vbe文件放到"sendto"文件夾，在doc文件上右擊選“發(fā)送到～doc2txt.vbe”，同樣可以轉(zhuǎn)換。
此法同樣可以將HTML,RTF等文件轉(zhuǎn)換為文本文檔。
復(fù)制代碼 代碼如下:
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下通過(guò)測(cè)試。
我在試驗(yàn)過(guò)程中發(fā)現(xiàn)，寫入注測(cè)表的腳本運(yùn)行后DOC右鍵有時(shí)并沒(méi)有出現(xiàn)轉(zhuǎn)換菜單，你可以將第二個(gè)腳本中的docfile改為*，就是在所有類型文件右鍵菜單添加轉(zhuǎn)換項(xiàng)。
或者將doc2txt.vbe文件放到"sendto"文件夾，在doc文件上右擊選“發(fā)送到～doc2txt.vbe”，同樣可以轉(zhuǎn)換。
此法同樣可以將HTML,RTF等文件轉(zhuǎn)換為文本文檔。
相關(guān)文章
用vbscript得到注冊(cè)表中是否存在某個(gè)值
用vbscript得到注冊(cè)表中是否存在某個(gè)值...2007-04-04
好多情況下，我們只想保留某個(gè)文件或文件夾但對(duì)于大量的文件或文件夾刪除起來(lái)，比較麻煩，下面這個(gè)代碼可以解決這個(gè)問(wèn)題，用vbs實(shí)現(xiàn)的刪除文件夾代碼2008-05-05
vbs實(shí)現(xiàn)unicode和ascii編碼轉(zhuǎn)換
這篇文章主要介紹了vbs實(shí)現(xiàn)unicode和ascii編碼轉(zhuǎn)換,本文同時(shí)介紹了OpenTextFile和CreateTextFile的使用,需要的朋友可以參考下2014-11-11
IIS管理腳本之a(chǎn)dsutil.vbs的使用說(shuō)明
Adsutil.vbs是什么？它是Windows 2003的IIS服務(wù)自帶的基于命令行下的IIS管理腳本，可以說(shuō)是命令行下的Internet 信息服務(wù)管理器2007-06-06
VBS基礎(chǔ)篇 - vbscript動(dòng)態(tài)數(shù)組
VBS中的動(dòng)態(tài)數(shù)組需要使用System.Collections.ArrayList,需要的朋友可以參考下2018-05-05
vbs實(shí)現(xiàn)的圖片自適應(yīng)表格,目前最佳解決方案!
用vbs實(shí)現(xiàn)的圖片自適應(yīng)代碼2008-06-06
我本來(lái)想獲取aaa.com頁(yè)面的內(nèi)容，可是aaa.com跳轉(zhuǎn)到bbb.com了。我想獲取bbb.com 這個(gè)網(wǎng)址。2011-04-04
vbs能調(diào)用的系統(tǒng)對(duì)象小結(jié)
這篇文章主要介紹了vbs能調(diào)用的系統(tǒng)對(duì)象小結(jié),需要的朋友可以參考下2018-04-04
在windows 64位操作系統(tǒng)上運(yùn)行32位的vbscript的方法
這篇文章主要介紹了在windows 64位操作系統(tǒng)上運(yùn)行32位的vbscript的方法,需要的朋友可以參考下2016-11-11
VBS教程：屬性-Item 屬性...2006-11-11