Hi everyone,
After lots of persistence I found the answer:
Set Range = NewApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range
Do While Range.Find.Execute("TextToSearchFor") = True
Range.Cut
Range.InsertAfter "TextToReplace"
Loop
Thanks...