最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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

 更新時(shí)間：2008年06月02日 20:15:26   作者：  
WORD軟雖然可以將doc轉(zhuǎn)為文本文檔，但每次打開(kāi)WORD都很慢。最好就是通過(guò)右鍵菜單來(lái)快速轉(zhuǎn)換。
打開(kāi)記事本輸入： 
復(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)，寫(xiě)入注測(cè)表的腳本運(yùn)行后DOC右鍵有時(shí)并沒(méi)有出現(xiàn)轉(zhuǎn)換菜單，你可以將第二個(gè)腳本中的docfile改為*，就是在所有類(lèi)型文件右鍵菜單添加轉(zhuǎn)換項(xiàng)。
或者將doc2txt.vbe文件放到"sendto"文件夾，在doc文件上右擊選“發(fā)送到～doc2txt.vbe”，同樣可以轉(zhuǎn)換。
此法同樣可以將HTML,RTF等文件轉(zhuǎn)換為文本文檔。

相關(guān)文章

最新評(píng)論

横山县| 虹口区| 文成县| 郁南县| 靖江市| 阿克陶县| 齐河县| 三台县| 绍兴市| 合山市| 上蔡县| 荃湾区| 从江县| 图们市| 讷河市| 通海县| 阳春市| 宜川县| 海淀区| 平原县| 青神县| 独山县| 芜湖市| 鄂尔多斯市| 高邮市| 溧阳市| 遂川县| 中山市| 泗阳县| 河北区| 凤冈县| 甘孜县| 沁阳市| 延吉市| 洞头县| 白银市| 龙陵县| 靖江市| 林芝县| 芦溪县| 瓦房店市|