Excel VBA向word文档表格添加行答案

【问题标题】：Excel VBA adding lines to a word document tableExcel VBA向word文档表格添加行
【发布时间】：2013-06-13 09:52:19
【问题描述】：

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

我会给出一个代码示例，但我的代码失败了，所以我认为它不会有帮助。

我需要能够遍历二维数组，并在每次循环时插入带有二维数组信息的新行。

【问题讨论】：

即使它不起作用，发布您的代码对于获得一个好的答案也很重要。您的代码示例通常有助于更清楚地定义您要完成的任务。
见stackoverflow.com/questions/3567441/…和stackoverflow.com/questions/5550959/…

标签： excel ms-word vba

【解决方案1】：

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

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 会自动将这些行附加到表格中。

【讨论】：