Word 97- makro med Søg Erstat i Sidehoved

Hvad med denne lille ting.

Sub ReplacePageHeaderAndFooter()
Dim sReplace As String
Dim sInsert As String

    sReplace = InputBox(\"Indtast tekst der skal erstattes\", \"Systeminformation\")
    sInsert = InputBox(\"Indtast tekst der skal indsættes\", \"Systeminformation\")

\'Sidehoved
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    With Selection.Find
        .Text = sReplace
        .Replacement.Text = sInsert
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
\'Sidefod
    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If
    With Selection.Find
        .Text = sReplace
        .Replacement.Text = sInsert
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

\'Normal visning
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub