VBS实现DOC转为文本文档的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
打开记事本输入: 复制代码 代码如下: ONERRORRESUMENEXT setargs=wscript.arguments arg=args(0) setw=createobject("word.application") setfso=createobject("scripting.filesystemobject") setdocfile=fso.getfile(arg) docpath=docfile.path pt=left(docpath,Instrrev(docpath,"\")) txtpn=pt&left(docfile.name,instrrev(docfile.name,"."))&"txt" w.documents.opendocpath,,,,,,,,,,,false w.documents(docpath).activate w.activedocument.saveastxtpn,2 w.activedocument.close w.quit setw=nothing 保存到“C:\WINDOWS\doc2txt.vbe”。 记事本编辑 createobject("wscript.shell").regwrite"HKCU\docfile\Shell\\转为文本文档\Command\","wscript.exeC:\WINDOWS\doc2txt.vbe" 记事本编辑 createobject("wscript.shell").regwrite"HKCU\docfile\Shell\\转为文本文档\Command\","wscript.exeC:\WINDOWS\doc2txt.vbe%1" 以上内容保存为*.VBS,运行后,在doc文件上右击,就可以看到“转换为文本文档”项,点击就可以快速转换为文本文档。 以上内容在WIN2000加WORD2003下通过测试。 我在试验过程中发现,写入注测表的脚本运行后DOC右键有时并没有出现转换菜单,你可以将第二个脚本中的docfile改为*,就是在所有类型文件右键菜单添加转换项。 或者将doc2txt.vbe文件放到"sendto"文件夹,在doc文件上右击选“发送到~doc2txt.vbe”,同样可以转换。 此法同样可以将HTML,RTF等文件转换为文本文档。 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇: 关于脚本调用外部对像和类型库下一篇: vbs中的LoadPicture函数示例
关于VBS实现DOC转为文本文档的代码的所有评论