Как заставить этот скрипт 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». В этом случае вы можете сохранить измененный документ в том же / новом файле. Прочитайте документацию VBA о .Save и .SaveAs. Хорошей идеей может быть закрытие приложения с помощью .Quit.