Find og Replace i Word

Hvis nogen er interesseret, så er svaret :

Dim wordapp as Word.Application

With wordapp.Selection.Find
    .ClearFormatting()
    .Text = "Find"
    With .Replacement
        .ClearFormatting()
        .Text = "Replace"
    End With
    .Execute(Replace:=Word.WdReplace.wdReplaceOne)
End With

Replace:=Word.WdReplace.wdReplaceAll
Replace:=Word.WdReplace.wdReplaceNone

kan også bruges. Det var den der Replace:= jeg manglede for
at det kørte.