如何实现 重复查找并删除指定文字的行

Sub 删除此行()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "删除此行"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Rows.Delete
End Sub

这一串word宏代码是指删除有“删除此行”文字的这一行单元格。但问题出在这里：
1、只能删除一次，如何借助循环重复删除其他的？
2、如果没有“删除此行”的文字，指令会删除第一行。当然，这是不满足我的初衷。

我的想法是：
判断“删除此行”是否存在，如果存在，则执行“删除此行”，返回循环；否则，跳出循环。
这个代码如何写才会显得简单呢？
谢谢各位了！

很深奥，不会编写代码！