Word makro, søgning på format

Hej
Følgende makro virker fint i det øjeblik den bliver optaget, men ikke hvis man efterfølgende forsøger at bruge den. Den finder steder med dobbeltgennemstregning og fjerner al den tekst der er dobbelt.
Makroen ser således ud:
Sub fjerndobbelt()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Hvorfor virker den ikke efterfølgende (på identisk kopi af samme dokument)

Torben