Kopf-u. Fußzeile im ges. doc.verschwinden lassen(TeilCode schon da)

[wugdcg]

Hi, also wie der Titel schon sagt möchte ich gerne die Kopf- und Fußzeile im gesamten Dokument verschwinden lassen. Bis jetzt funktioniert es erst auf einer Seite. Sprich, wo der Cursor sich befindet.
Nun weiss ich aber nicht mehr weiter, wäre nett wenn mir einer von euch helfen könnt. Ist superdringend
Hier ist mein bisheriger Code:

Sub Kopf_fußzeile()

' Aufrufen der Kopfzeile oder Schliessen wenn offen
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

' Alles makieren
Selection.WholeStory

' Makierung löschen
Selection.Cut
Dialogs(wdDialogFilePrint).Show
Selection.Paste

' Kopf/Fußzeile verlassen
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub