Hvordan får jeg sidefoden med ??

Dette er kodet for at tilføje en speciel sidehoved til et dokument som vil ende på mange sider, som normalt kun har 1 side:

' Sidehoved start
    Selection.GoTo What:=wdGoToBookmark, Name:="bgmSider"
    Selection.InsertBreak Type:=wdPageBreak
    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:=frmInfo.txtDato
    Selection.TypeParagraph
    Selection.TypeText Text:=frmInfo.txtIniAnsvar
   
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Selection.TypeBackspace
    Selection.TypeBackspace
' Sidehoved slut

Denne virker helt fint , men hvordan får jeg den nuværende sidefod til at forsætte hele dokumentet ud??

Jeg har i sideopsætningen en "speciel første side", da min ønskede sidehoved ikke skal fremkomme på første side, men fra side 2 og fremefter.