使用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行。 希望幫助之前添加一個新行。