Какой сценарий добавит новую строку в таблицу в «MS Word» 2003?

Question

У меня есть простая таблица в MSWord 2003:

Я хочу добавить еще одну строку в эту таблицу:

turtle  dog rooster maple

Какие команды VBScript(или набор команд) мне нужно здесь, чтобы сделать это автоматически?

(я использую "Windows XP")

Answer 1

Вот несколько заметок.

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