本示例显示活动文档的第一页页眉,然后切换到下一个页眉。文档必须至少有两页。

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
With ActiveDocument.ActiveWindow.View
    .Type = wpsPrintView
    .SeekView = wpsSeekCurrentPageHeader
    .NextHeaderFooter
End With