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

來源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎ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下通過測(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)換為文本文檔。

上一篇：vbs病毒源文件

欄目：vb

下一篇：vbs刪除注冊(cè)表項(xiàng)的代碼

本文標(biāo)題：VBS實(shí)現(xiàn)DOC轉(zhuǎn)為文本文檔的代碼

本文地址：http://mengdiqiu.com.cn/a1/vb/7708.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

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

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機(jī)閱讀