WD97: Macro Returns to View Used Before Opening Header

  Sub ViewHeaderFooterExample()
      ' Add this line that dimensions a variable.
      ' to store the current view.
      Dim OriginalView As Long   ' <-- Add
      ' Recorded Code.
      If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
         ActiveWindow.Panes(2).Close
      End If
      ' Add this line that captures the current view.
      OriginalView = ActiveWindow.ActivePane.View.Type   ' <-- Add
      ' Recorded Code.
      If ActiveWindow.ActivePane.View.Type = wdNormalView Or _
         ActiveWindow.ActivePane.View.Type = wdOutlineView Or _
         ActiveWindow.ActivePane.View.Type = wdMasterView Then
         ActiveWindow.ActivePane.View.Type = wdPageView
      End If
      ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
      ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
      ' Add this line that returns the view to the original view.
      ActiveWindow.ActivePane.View.Type = OriginalView   ' <-- Add
   End Sub