如何用vb.net

Question

我試圖插入一個表格，以字頭但不是把它放在頭在頁面

的身體正在創建的表中插入表爲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() 

任何幫助將不勝感激。

Answer 1

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)