幽灵资源网 Design By www.bzswh.com
打开记事本输入：
复制代码 代码如下:
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等文件转换为文本文档。
复制代码 代码如下:
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,文本
幽灵资源网 Design By www.bzswh.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
幽灵资源网 Design By www.bzswh.com
暂无评论...
一口气升级7个大模型SaaS应用，百度智能云：突出一个“开箱即用” - 2024/5/21
这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。
一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。
另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。
这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。
一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。
另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。
稳了！魔兽国服回归的3条重磅消息！官宣时间再确认！
昨天有一位朋友在大神群里分享，自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址，com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后，确实是网易的网址，也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情，因为以前都没有出现这样的情况，现在突然提示跳转到国服战网的网址，是不是说明了简体中文客户端已经开始进行更新了呢？