Question

通过VB在word中添加页眉

通过vb实现在WORD中添加页眉，并在页眉中输入相应汉字。请提供程序代码并详细说明。

Answer 1

Sub Macro1()
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
Selection.TypeText Text:="我是一个兵"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Answer 2

可以私信我。讨论一下。