Saltar órdenes

[Siegmund]

Hola, soy nuevo. Espero que alguien me pueda ayudar. Se trata de una macro para Word:

La macro siguiente busca en el texto la palabra "piedra"; si la encuentra, la sustituye por ROCA; después escribe “Ha reemplazado piedra por ROCA” y después escribe “Se ha teminado”.
Me gustaría saber cómo modificarla para que, en el caso de no encontrar en el texto la palabra “piedra”, salte directamente a escribir “se ha terminado”, sin escribir “Ha reemplazado la palabra piedra por ROCA”. Gracias.

Sub Macro4()
'
' Macro4 Macro
' Macro grabada el 30/01/2008 por Siegmund
'

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "piedra"
.Replacement.Text = "ROCA"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.TypeText Text:="Ha reemplazado piedra por roca"
Selection.TypeParagraph
Selection.TypeText Text:="Se ha terminado"
End Sub