Lo que ocurre es que tal y como lo estas haciendo estas pasando parametros por nombre, y vbs no lo acepta (Replace:=wdReplaceAll). Lo que debes de hacer es llamar a la función pasando todos los parametros directamente.
http://msdn.microsoft.com/en-us/library/microsoft.office.interop.word.find.execute%28v=office.11%29.aspx
Fijate que además se deben de pasar los valores de las constantes
Saludos
Código (vb) [Seleccionar]
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("drive:\ruta\Nombre del archivo.doc")
objword.visible = true
ObjWord.Selection.Find.ClearFormatting
ObjWord.Selection.Find.Replacement.ClearFormatting
With ObjWord.Selection.Find
.Replacement.ClearFormatting
.Execute "Texto a cambiar",False,False,False,False,False,True,1,True,"Texto nuevo",2
End with
http://msdn.microsoft.com/en-us/library/microsoft.office.interop.word.find.execute%28v=office.11%29.aspx
Fijate que además se deben de pasar los valores de las constantes
Saludos