如何使用vb.net将表格作为字头插入

我试图在word的页眉中插入一个表，但不是将其放在页眉中，而是在页面的主体中创建表

我试过这个

Dim objApp As Word.Application
    Dim objDoc As Word.Document
    objApp = New Word.Application()
    objDoc = objApp.Documents.Open(TextBox1.Text)
    objDoc.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
    objDoc.Sections(1).Headers(Word.WdHeaderFooterIndex.wdHeaderFooterFirstPage).Range.Tables.Add(Range:=objApp.Selection.Range, NumRows:=3, NumColumns:=1)
    objDoc.Save()
    objDoc.Close()
    objApp.Quit()
    Dim oWord = New Microsoft.Office.Interop.Word.Application
    Dim Dir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    oWord.Documents.Open(TextBox1.Text)
    Dim oDoc = oWord.ActiveDocument

    oWord.Visible = True

    Dim tbl As Word.Table = oDoc.Tables(1)

    tbl.Cell(1, 1).Range.Text = "Content"
    tbl.Cell(2, 1).Range.Text = "Content"
    tbl.Cell(3, 1).Range.Text = "Total Exp:"
    oDoc.Save()
    oDoc.Close()
    oWord.Quit()

任何帮助都将不胜感激

ojDoc.Sections(1).
   Headers(Word.WdHeaderFooterIndex.wdHeaderFooterFirstPage).Range.
   Tables.Add(Range:=objApp.Selection.Range, NumRows:=3, NumColumns:=1)

您试图将新表锚定在所选内容上，但这可能不在标题内。
这似乎有效：

Dim r As Word.Range = objDoc.Sections(1).
    Headers(Word.WdHeaderFooterIndex.wdHeaderFooterFirstPage).Range
r.Tables.Add(Range:=r, NumRows:=3, NumColumns:=1)