добавить строки, а затем заполнить эти строки данными из коллекции

Question

Мне нужно динамически добавлять строки в таблицу слов, а затем заполнять эти строки данными из коллекции.Вот что я пытаюсь сделать, но я не работаю хорошо.

ActiveDocument.Tables(nbTable).Select
Selection.InsertRowsBelow nbR
addTableRows = ActiveDocument.Tables(nbTable).Rows.Count

ActiveDocument.Tables(nbTable).Columns(nbC).Cells(intCell).Range.Text = txt

ActiveDocument.Tables(nbTable).Columns(nbC).Cells(intCell).Select
Selection.Font.TextColor = RGB(0, 0, 0)

Проблема в том, что, когда я делаю это, я получаю сообщение об ошибке, говорящее о том, что строки не существуют.Дело в том, что строки добавляются после того, как я получаю ошибку, и я не могу заполнить строки данными, которые мне нужны.Кто-нибудь может мне помочь.Я новичок в этой среде.

Answer 1

Ваш код был бы лучше выражен как:

Dim r As Long
With ActiveDocument.Tables(nbTable)
  For r = 1 To nbR
    .Rows.Add (.Rows(.Rows.Count))
  Next
  With .Cell(intCell, nbC).Range
    .Text = "txt"
    .Font.Color = RGB(0, 0, 0)
  End With
End With

Тем не менее, ничего из того, что вы опубликовали, не говорит нам, какие значения содержат nbTable, nbR, nbC или intCell, сколько таблиц в документеили имеет ли указанная таблица соответствующее число строк и столбцов и т. д., поэтому мы не можем знать, является ли какое-либо из этих значений допустимым в каком-либо конкретном случае.Также не ясно, для каких целей предполагается использовать addTableRows.