繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > VBS实现DOC转为文本文档的代码
- VBScript
- 用vbs脚本来关闭 HTML 页面的代码
- 用vbs实现确定是否安装了某个特定的补丁
- 用vbs确定用户的登录名的代码
- 用vbs找到映射到共享的所有驱动器并重新映射它们
- 可以从一台远程服务器运行 SP2 安装程序Install.vbs
- 用vbs判断一个日期是否在指定的时段内
- vbs+hta中实现在单个 onClick 参数中包括多个子例程的代码
- vbs中实现启动两个应用程序，一直等到其中一个程序结束，然后关闭另一个？
- 用vbs实现对文本文件中的项计数
- 用vbs对文本文件的内容进行排序
- 用vbscript把 Word 文档保存为文本文件的代码
- 用vbs返回 Internet Explorer 的下载控件和 Applet 的列表
- 用vbscript合并多个文本文件的代码
- 用vbscript防止本地用户更改其密码
- 用vbs针对一个 IP 地址范围运行脚本
- 用vbs 实现从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点
- 使用vbscript脚本在表单中进行选择的代码
- 一个把任何文件转成批处理的vbs脚本Any2Bat.vbs
- windows脚本调试howto的方法
- 注册表的禁用与解锁方法集合
VBScript 中的 VBS实现DOC转为文本文档的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 165 ::
收藏到网摘: n/a
打开记事本输入：
复制代码 代码如下:
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等文件转换为文本文档。
评论 (0) All
