VBS实现DOC转为文本文档的代码

打开记事本输入： 


代码如下:

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)

相关推荐

  • VBS实现DOC转为文本文档的代码

    打开记事本输入:  复制代码 代码如下: 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

  • Powershell打印文本文档例子

    支持所有版本 从记事本打印一个文件,可以使用下列代码(需要替换成一个有意义的路径,否则将打印较长的系统日志): 复制代码 代码如下: Start-Process -FilePath notepad -ArgumentList '/P C:\windows\WindowsUpdate.log'

  • Android 下载并打开PDF,Doc,Dwg文档实例

    Android 下载并打开PDF,Doc,Dwg文档实例

    今天项目中遇到这样一个需求 ,根据后台接口里pdf,doc,dwg文档的地址 是一个URL ,需要根据文档的url 下载到本地(内部存储或内存卡)并用手机中能打开该文档的软件弹出来并打开,(这里需要做一个缓存,第一次查看这个文档是在服务器上下载并打开,以后打开不需要下载直接打开本地的文档)在网上找了些资料 写了以下代码,下面分享给大家; 效果图: 代码: 这是一个单独的类 首先接收intent传过来的url我是用url的后14位作为存储本地的文件名(这里根据自己服务器的文件命名规则而定) 拿到文

  • 在PHP中读取和写入WORD文档的代码

    复制代码 代码如下: <?  // 建立一个指向新COM组件的索引  $word = new COM("word.application") or die("Can't start Word!");  // 显示目前正在使用的Word的版本号  //echo "Loading Word, v. {$word->Version}<br>";  // 把它的可见性设置为0(假),如果要使它在最前端打开,使用1(真)  // t

  • vue Cli 环境删除与重装教程 - 版本文档

    vue-cli 卸载,版本选择,安装 · 检测(图文教程:vue Cli 环境删除与重装) 重要说明: vue-cli 3.0+版本,使用的不是vue-cli,而是@vue/cli: 如果用以上的安装命令安装的并不是最新版的3.0+的,而如果安装3.0的话就需要使用新的命令. vue-cli 的 卸载: 如果原来已经安装了vue-cli的话需要先卸载原来的安装 npm uninstall vue-cli -g vue-cli 的 安装: 1. 版本低于3.0 (vue-cli<3.0) npm

  • Java实现将彩色PDF转为灰度PDF的示例代码

    Java实现将彩色PDF转为灰度PDF的示例代码

    目录 配置程序环境 转彩色PDF为灰度 实现代码(Java) 补充 本文以Java代码为例介绍如何实现将彩色PDF文件转为灰度(黑白)的PDF文件,即:将PDF文档里面的彩色图片或者文字等通过调用PdfGrayConverter.toGrayPdf()方法转为文档页面为灰色调.无彩色效果的文档,可实现缩小文档大小的目的.下面是程序运行环境及代码示例. 配置程序环境 IntelliJ IDEA Spire.PDF for Java 5.3.1 PDF文档 关于如何引入jar文件: 1.通过Mave

  • 将List集合中的map对象转为List<对象>形式实例代码

    本文实例主要实现将List集合中的map对象转为List<对象>形式,下面是完整代码: import java.util.ArrayList; import java.util.HashMap; import java.util.Iterator; import java.util.List; import java.util.Map; import org.apache.commons.beanutils.ConvertUtils; import org.apache.commons.bea

  • 提供一个可以将DocX转为doc的文档转换器 地址

    提供一个可以将DocX转为doc的文档转换器 地址

    而DocX Convert为这兼容性问题提供了一个非常方便的解决方法,它可以把 .docx文档转换成文本格式,虽然有可能会丢弃原来的文档排版格式,但它至少可以保证在没有MS office 2007的情况下还可以读取里面的内容,以便急需之用.真是佩服老外的创造能力,连这个转换都做成了网站,再想想国内呢?成天都为流氓软件提心吊胆的.微软也是的,没事儿弄什么新的格式多了个x,07较之以外的版本有着很大的变化,估计还得适应一段时间才能上手,office07非常的智能,和vista一样对于资源占用也以往的

  • 利用Java Apache POI 生成Word文档示例代码

    最近公司做的项目需要实现导出Word文档的功能,网上关于POI生成Word文档的例子很少,找了半天才在官网里找到个Demo,有了Demo一切就好办了. /* ==================================================================== Licensed to the Apache Software Foundation (ASF) under one or more contributor license agreements. See

  • 从ASP.NET得到Microsoft Word文档的代码

    背景 自动化(Automation)是一个过程,它允许编程语言譬如Visual Basic.NET或C#写的应用程序可以编程控制其它应用程序.自动化到Word允许你执行像创建新文档,向文档中添加文本,邮件合并,还有控制文档格式这样的操作.使用Word和其它Microsoft Office应用程序,几乎所有你能在用户面板上手动实现的操作都可以通过自动化编程实现.Word通过一个对象模型来实现这个编程功能性(programmatically functionality).对象模型是一系列类和方法,它

随机推荐