Question

我编写了一个程序，用于将一组数据从Excel迁移到Word中。问题是必须以非常特定的格式将单词格式的格式输入到新文件中，并将新行插入到行数据中。换句话说，我在excel中的每一行都有第二列中的信息，现在必须将其移动到工作表中的单行中我通过在单词中创建表后添加一行来解决此问题合并它们，但我发现的代码不断产生运行时错误4120 Bad参数。我猜我正在使用的代码实际上是在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方法的参数必须是Row对象。如下所示：

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

将在第2行之前添加新行。希望有所帮助。

使用Excel VBA将行插入Word表

1 个答案: