欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

用vbscript把 Word 文档保存为文本文件的代码

程序员文章站 2022-04-09 11:43:25
问:  嗨,scripting guy!我有一系列 word 文件。我想打开这些文件中的每一个并将它们另存为纯文本文件。有没有一种通...
问: 
嗨,scripting guy!我有一系列 word 文件。我想打开这些文件中的每一个并将它们另存为纯文本文件。有没有一种通过使用脚本实现此目的的方法呢? 

-- cg 

答: 
您好,cg。是的,使用一个脚本,您很容易实现此目的。事实上,除了极少例外情况之外,您在 microsoft office 程序中可以做到的事情基本上都可以使用一个脚本来完成。在 word 中,您可以使用“文件”–“另存为”将 word 文档另存为文本文件。您也可以使用一个脚本做同样的事情。实际上,您可以使用以下脚本实现此目的: 

复制代码 代码如下:

const wdformattext = 2  

set objword = createobject("word.application")  
set objdoc = objword.documents.open("c:\scripts\mylog.doc")  
objdoc.saveas "c:\scripts\mylog.txt", wdformattext  

objword.quit  

我们先创建一个名为“wdformattext”的常量,然后将值 2 分配给它;此常量将用于告诉 word 我们希望新文件保存为一个文本文件。然后我们创建一个 microsoft word 实例,使用“打开”方法打开文件 c:\scripts\mylog.doc。文档打开之后,我们只需要一行代码就可将此 word 文档另存为文本文件: 

objdoc.saveas "c:\scripts\mylog.txt", wdformattext 

as you can see, we call the saveas method, and we pass it two parameters: 1) c:\scripts\mylog.txt, which is the path for our new text file; and, 2) wdformattext, which tells word to save the file as plain text.这样就可以了。然后我们使用“quit”方法关闭 word 实例。 

两个重要注意事项。第一,您在屏幕上看不到任何正在发生的事情,因为,默认情况下,无论何时您从一个脚本中调用 word,它都将运行在一个不可见窗口中。如果您希望看到它在屏幕上弹出,保存文件,然后消失,请使用以下代码: 

const wdformattext = 2 

set objword = createobject("word.application") 
objword.visible = true 
set objdoc = objword.documents.open("c:\scripts\mylog.doc") 
objdoc.saveas "c:\scripts\mylog.txt", wdformattext 

objword.quit 

唯一的不同之处在于:我们将“visible”属性设置为 true。 

第二,您可以将 word 文档另存为纯文本以外的格式。例如,使用常量 wdformathtml(值 = 8)将 word 文档另存为 html 文件;使用常量 wdformatxml(值 = 11)将 word 文档另存为 xml 文件。