如何使用vb.net修改word文档的页眉

[myricemeli]

之前没有做过类似的使用，所以对vb.net操作word一窍不通，如何修改word文档中已存在的页眉中的文字，请知道的老师给指点一下，谢谢。

[vicanary]

知道录取宏吗？录制了宏将代码直接复制过来，就可以用了。下面是我录制的，你看着修改

Sub 宏1()
'
' 宏1 宏
'
'
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    ActiveDocument.AttachedTemplate.BuildingBlockEntries(" 空白").Insert Where:= _
        Selection.Range, RichText:=True
    Selection.TypeBackspace
    Selection.TypeText Text:="强大的宏"
    ActiveDocument.Save
    ActiveDocument.Save
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

[myricemeli]

Public Sub setHead(ByVal HeadString As String) For Each section As Word.Section In oDocument.Sections Dim headerRange As Word.Range = section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range headerRange.Text = HeadString Next End Sub 我用了这个代码将页眉更改了。