Word macro

[wilcc]

How do I stop a loop in this Word macro it reaches a blank row? This is the
macro:

Do
Selection.Find.ClearFormatting
With Selection.Find
.Text = " by "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.TypeText Text:=vbTab
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=1
Loop


Thanks for your help.