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应该用于什么目的。

添加行，然后用集合中的数据填充这些行

1 个答案: