Word 97/VBA - Tekstsøgning i sidehoved

Hvad der hører til sjældenthederne er, at jeg løser mine egne spm - men her fandt jeg en tålbar måde at gøre det på

KODE
----------
Private Sub cmdGo_Click()
    Dim files
    Dim rngRange As Range
    Dim srcDir As String
    Dim search As String
    Dim replace As String
    Dim doc As Word.Document
   
    ' initialisér fra GUI
    srcDir = txtDirectory.Text
    search = txtSearchFor.Text
    replace = txtReplaceWith.Text

    ' find første fil i dir
    file = Dir(srcDir, vbNormal)
   
    ' sålænge der er filer
    Do Until file = ""
       
        'åbn dokumentet
        Set doc = Documents.Open(txtDirectory.Text + file)
       
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = search
            .Replacement.Text = replace
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute replace:=wdReplaceAll
       
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = search
            .Replacement.Text = replace
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute replace:=wdReplaceAll
     
        ' luk dokument igen
        doc.Save
        doc.Close
       
        lstChanged.AddItem (file)
       
        ' hent næste fil
        file = Dir()
    Loop
End Sub
----------