使用Excel VBA将行插入Word表格

Question

我已经编写了一个程序，用于将一组数据从Excel迁移到Word中。问题在于，必须以非常特定的格式将word中的表单格式输入到新文件中，并将新行插入行数据中。换句话说，我在excel中的每一行都有第2列的信息，现在必须将它们移到表单中的单行中，我通过在单词中创建表之后添加一行来解决此问题，然后合并它们，但我发现的代码不断产生运行时错误4120错误参数。我在猜测，我使用的代码实际上是在word中使用，而不是从excel中使用。任何帮助正确的代码将不胜感激。

If section1 = True Then 
    'wdDoc.Tables(1).Rows.Add BeforeRow:=.Rows(2) 
    wdDoc.Tables.Rows.Add (2) 
    With wdDoc.Tables(1) 
     .Cell(Row:=2, Column:=2).Merge _ 
     MergeTo:=.Cell(Row:=2, Column:=10) 
     .Borders.Enable = False 
     wdDoc.Tables(1).Cell(2, 2).Range.Text = "Section I - Authorized Ship Changes" 
    End With 
Else 
End If 

Answer 1

在这行代码：

wdDoc.Tables.Rows.Add (2) 

为Add方法的参数必须是对象。因此，像：

wdDoc.Tables.Rows.Add wdDoc.Tables.Rows(2) 

将第2行。 希望帮助之前添加一个新行。