用vbscript把 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 文件。
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！
点击进行留言回复
相关文章:
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览，其实使用qtp本身的table能实现多种读取方式，但是因为需要tabel是使用excel保存的，在没有...
[阅读全文]
-
-
-
-
-
-
-
我要评论
网友评论