1. 云栖社区>
  2. >
  3. 正文

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

作者:用户 来源:互联网 时间:2016-04-02 11:37:04

word用vbscript把

用vbscript把 Word 文档保存为文本文件的代码_vbs - 摘要: 本文讲的是用vbscript把 Word 文档保存为文本文件的代码_vbs, 问:  嗨,Scripting Guy!我有一系列 Word 文件。我想打开这些文件中的每一个并将它们另存为纯文本文件。有没有一种通过使用脚本实现此目的的方法呢?  -- CG  答:  您好,CG。是的,使用一个脚本,您很容易实现此目的

问: 
嗨,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 文件。 

以上是云栖社区小编为您精心准备的的内容,在云栖社区的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索word 用vbscript把 文本文档保存乱码、文本文档没有保存、文本文档忘记保存、文本文档不能保存中文、文本文档未保存,以便于您获取更多的相关知识。

稳定可靠、可弹性伸缩的在线数据库服务,全球最受欢迎的开源数据库之一

6款热门基础云产品6个月免费体验;2款产品1年体验;1款产品2年体验

弹性可伸缩的计算服务,助您降低 IT 成本,提升运维效率

开发者常用软件,超百款实用软件一站式提供