如何用vba快速切换到word文档的页眉页脚？

我们知道在word文档中双击页眉或者页脚就会弹出“页眉和页脚工具”选项卡，进入对应的页面的页眉或页脚的编辑状态。

在vba中如果需要快速地进入某个页面的页眉或页脚的编辑状态，可以设置View对象的SeekView属性。

比如要快速地切换到当前页面的页眉，可以使用如下的代码：

Sub QQ1722187970()
    Dim oWnd As Window
    Dim oPane As Pane
    Dim oView As View
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
'        MsgBox .Windows.Count
        Set oWnd = .Windows(1)
        With oWnd
'            MsgBox .Panes.Count
            Set oPane = .Panes(1)
            Set oView = .View
            With oView
                '先切换为页面视图
                .Type = wdPrintView
                '然后进入当前页面的页眉
                .SeekView = wdSeekCurrentPageHeader
            End With
        End With
    End With
End Sub

除了可以切换进入到当前页面的页眉还可以进入当前页面的页脚，退出页眉页脚等，如下所示：

'进入当前页面的页眉
.SeekView = wdSeekCurrentPageHeader
'进入当前页面的页脚
.SeekView = wdSeekCurrentPageFooter
'退出页眉页脚
.SeekView = wdSeekMainDocument