VBS如何实现DOC转为文本文档-创新互联

这篇文章主要介绍了VBS如何实现DOC转为文本文档，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

成都创新互联一直在为企业提供服务，多年的磨炼，使我们在创意设计，全网整合营销推广到技术研发拥有了开发经验。我们擅长倾听企业需求，挖掘用户对产品需求服务价值，为企业制作有用的创意设计体验。核心团队拥有超过10年以上行业经验，涵盖创意，策化，开发等专业领域，公司涉及领域有基础互联网服务川西大数据中心、成都app软件开发公司、手机移动建站、网页设计、网络整合营销。

打开记事本输入：

代码如下:

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等文件转换为文本文档。

感谢你能够认真阅读完这篇文章，希望小编分享的“VBS如何实现DOC转为文本文档”这篇文章对大家有帮助，同时也希望大家多多支持创新互联网站建设公司，，关注创新互联行业资讯频道，更多相关知识等着你来学习!

分享题目：VBS如何实现DOC转为文本文档-创新互联
新闻来源：http://cdiso.cn/article/dpgshh.html