Set wrd = New Word.Application
    wrd.Documents.Add

    wrd.ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesFooter
    wrd.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
    wrd.Selection.TypeText Text:=" "
    wrd.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTime
    wrd.Selection.TypeText Text:=vbTab & vbTab
    wrd.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
    wrd.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

    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