VBS: добавление двух строк в таблицу MSWord.Как это сделать? - PullRequest
Новая
       10

VBS: добавление двух строк в таблицу MSWord.Как это сделать?

0 голосов
/ 27 ноября 2011

Здесь Я узнал о сценарии VBS, который добавит строку в мою таблицу MS Word. Добавляемая строка содержит четыре ячейки, каждая из которых содержит одно слово:

черепаха, гепард, Петух, клен

Скрипт работает отлично. Это выглядит так: 

Set wd = CreateObject("Word.Application")    
wd.Visible = True    
Set doc = wd.Documents.Open ("E:\my_folder\add_to_this_table.doc")    
Set r = doc.Tables(1).Rows.Add    
aa = Split("turtle,cheetah,rooster,maple", ",")    
For i = 0 To r.Cells.Count - 1    
  r.Cells(i + 1).Range.Text = aa(i)    
Next

А что если мне нужно добавить две строки в эту таблицу?

Вторая строка будет:

игуана, медведь, ястреб, ольха

Я пробовал это так, но это не работает: 

Set wd = CreateObject("Word.Application")    
wd.Visible = True    
Set doc = wd.Documents.Open ("E:\my_folder\add_to_this_table.doc")    
Set r = doc.Tables(1).Rows.Add    
aa = Split("turtle,cheetah,rooster,maple", ",")    
For i = 0 To r.Cells.Count - 1    
  r.Cells(i + 1).Range.Text = aa(i)    
Set r = doc.Tables(1).Rows.Add    
bb = Split("iguana,bear,hawk,alder", ",")    
For i = 0 To r.Cells.Count - 1    
  r.Cells(i + 1).Range.Text = bb(i)    
Next

Что я здесь не так делаю?

1 Ответ

1 голос
/ 27 ноября 2011

Вы забыли Next для своего первого цикла For.

...