在vb.net應用程序中向Word表動態添加行

Question

我正在運行此代碼以在vb.net中打開Word文檔

Dim oWord_detail As New word.Application
Dim oDoc_detail As word.Document
oWord_detail.Visible = True
oDoc_detail = oWord_detail.Documents.Open("c:\integra-billing\integra-invoice-detail.docx", False, False)

然后，我使用此行將新行添加到我的Word文檔中

oDoc_detail.Tables(1).Rows.Add()

但是當它運行時，上面的行顯示了錯誤：

The requested member of the collection does not exist

Answer 1

如果表已經存在，請嘗試oDoc_detail.Tables.Item（1）.Rows.Add（）

然后將文本添加到單元格

Dim oWord_detail As New Word.Application
Dim oDoc_detail As Word.Document
oWord_detail.Visible = True
oDoc_detail = oWord_detail.Documents.Open("C:\Dati\Temp\test.docx", False, False)
oDoc_detail.Tables.Item(1).Rows.Add()

For r = 1 To 1  'your row
For c = 1 To 3
oDoc_detail.Tables.Item(1).Cell(r, c).Range.Text = "r" & r & "c" & c
Next
Next