Excel VBA将行添加到word文档表

Question

我正在尝试找到一种方法来将行和信息添加到word文档中的预构建表中。该表现在只有两行。标题和空白行（2列）。我该如何向该表添加新的数据行。我尝试过书签，但我无法让代码工作。

我会提供一些代码示例，但我的代码失败了，所以我觉得它不会有所帮助。

我需要能够遍历2-D数组，并在每次循环时插入包含2-D数组信息的新行。

Answer 1

这是将数据插入Word中预先存在的表格的基本语法，来自Excel中的VBA：

Dim doc As Word.Document
Set doc = GetObject("path to my word document")

With doc.Tables(IndexNumberOfTableYouWant)
  .Cell(DesiredRow, 1).Range.Text = "my column 1 information"
  .Cell(DesiredRow, 2).Range.Text = "my column 2 information"
End With

只要预定义了适当数量的列，您就可以通过递增DesiredRow变量来继续添加行，而Word会自动将这些行附加到表中。