Odtnhj

I have a template with various fields that I want to fill programmatically from my VB application. The first part of the following code works fine and has no issue finding and opening the template, filling the various fields labeled with bookmarks, and then in later code, printing the template and closing.

 Dim oWord As Word.Application = CreateObject("Word.Application")
 Dim oDoc As Word.Document = Word.Documents.Open("C:...itemReceipt2.dotx")

 oDoc.Bookmarks.Item("Date").Range.Text = Date.Now.ToShortDateString
 oDoc.Bookmarks.Item("PONum").Range.Text = strPoNum
 oDoc.Bookmarks.Item("Vendor").Range.Text = strVendor
 oDoc.Bookmarks.Item("Memo").Range.Text = strMemo

The following does not fill the table I have built in my template.

 For i = 0 To listReceiptItem.Count - 1
 oDoc.Tables(1).Rows.Add(1)
 oDoc.Tables.Item(1).Cell(i + 2, 1).Range.Text = listReceiptItem.Item(i).ManufacturerPartNumber
 oDoc.Tables.Item(1).Cell(i + 2, 2).Range.Text = listReceiptItem.Item(i).Desc
 oDoc.Tables.Item(1).Cell(i + 2, 3).Range.Text = listReceiptItem.Item(i).Quantity
 oDoc.Tables.Item(1).Cell(i + 2, 4).Range.Text = listReceiptItem.Item(i).UnitOfMeasure
 oDoc.Tables.Item(1).Cell(i + 2, 5).Range.Text = listReceiptItem.Item(i).Cost
 oDoc.Tables.Item(1).Cell(i + 2, 6).Range.Text = listReceiptItem.Item(i).Amount
 oDoc.Tables.Item(1).Cell(i + 2, 7).Range.Text = listReceiptItem.Item(i).Customer
 Next

I guess I don't understand how I am supposed to reference the table in my template. I have tried building the table programmatically but making it look any good was way more effort than I expected. Obviously, it would be much simpler to just stuff each cell in the table in a manner similar to what I have above (but that works!).

Does anyone have experience filling a Word table programmatically or can point me in the right direction that would be great. Thanks!