Søg og erstat i et Word dokument

Hej er har brug for at søg og erstat nogle ord i et word dokument vha. et vb script.

Jeg har følgende, men det virker ikke helt. Den kan godt finde ordet, men ikke erstatte det. Hvad kan der være galt???

Dim objWordApp
Set objWordApp = CreateObject( "Word.Application")
objWordApp.Visible = True
objWordApp.Documents.Open source
objWordApp.Visible = True

Dim MyRange
Set myRange = objWordApp.ActiveDocument.Content

MyRange.Find.Text = "<ccc>"
MyRange.Find.ClearFormatting
MyRange.Find.Replacement.Text = "ccc"
MyRange.Find.Execute