Macro Word para buscar texto y eliminar fila

He creado esta macro que busca un texto y selecciona la fila y luego la elimina.

Sub BuscaTextoEliminaFila()
'
' BuscaTextoEliminaFila Macro
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "EliminaEstaFila"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Rows.Delete
Selection.TypeBackspace
End Sub

Lo malo es que en el documento aparecen varias veces y esto debo hacerlo repetidamente.

Como puedo hacer para que la macro se ejecute automáticamente en todo el documento, es decir que busque el siguiente registro y lo elimine