Question

通过VBA如何修改WORD页眉？？

请问通过VBA如何修改WORD页眉？？

Answer 1

其实通过宏录制你就完全可以明白，有些问题是可以自己轻易解决的，宏录制是学习vba很重要的一个步骤，自己要多尝试 ：
如下
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.TypeText Text:="暗暗暗暗"

Answer 2

Sub yemei()
ActiveDocument.Sections(1).Headers(wdPrimaryHeaderStory).Range.Text = "修改后的内容"
End Sub

Answer 3

试下下面的代码
'Get the contents of the Header
Set oRange = ActiveDocument.Paragraphs(1).Range.Sections(1).Headers(1).Range
'Set the content of the Header
oRange.Text = "This is a demo to modify the header"