Søg og erstat i MS Word

Hej

Jeg har brug for at søge og erstatte en række ord i Word. Jeg har forsøgt mig med programet der linkes til her, men jeg render hele tiden ind i en fejlmeddelelse. http://www.eksperten.dk/spm/924462
(noget med runtime error - og ofte noget med at jeg ikke kan gemme filen)

Anyhow er jeg så gået igang med at skrive en makro - bevares, den er blevet noget lang. Men her er den

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Italic = True
    With Selection.Find
        .Text = "erstat"
        .Text = "Erstat"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
   
    Selection.Find.Execute Replace:=wdReplaceAll

Den har jeg så kopieret 1000 gange og har fyldt de relevante ord ind i den. Så langt så godt. Den virker - ofte da.

Mit problem er nu at den ikke tager store bogstaver med i de ord den erstatter. Med andre ord; ordet der søges på skal IKKE være match-sensitive. Ordet der erstattes med SKAL være som jeg definere det!

Nogen der har bud på en tilpasning af koden - eller evt. kender mere til det program jeg linker til (det ser ud til at kunne hvad jeg skal).