如何使这个VBS脚本保持文档关闭？

Question

我刚刚收到这个VBS代码，它在MS“Word”2003中向我的表附加一行。它工作正常，但我希望它在不打开文件的情况下向表中添加一行。可能吗 ？或者，也许，我需要使用一些命令，一旦打开它就会关闭文档。

Set wd = CreateObject("Word.Application")

wd.Visible = True

Set doc = wd.Documents.Open ("c:\docs\addtotable.doc")

Set r = doc.Tables(1).Rows.Add

aa = Split("turtle,dog,rooster,maple", ",")

For i = 0 To r.Cells.Count - 1
  r.Cells(i + 1).Range.Text = aa(i)
Next

Answer 1

如果您不想打开Word的窗口，请使用“wd.Visible = False”而不是“wd.Visible = True”。在这种情况下，您可能希望将已更改的文档保存到相同/新文件。阅读有关.Save和.SaveAs的VBA文档。通过.Quit关闭应用程序也是一个好主意。