Hi - I am trying to create a Word macro that searches a column in a table for all bold sentences and adds 2 asterisks at the beginning of each sentence. So far I have come up with the code below. But it only finds the first sentence over and over again. I will have cells that have more than 1 bold sentence so I don't want to use range and move from cell to cell because it ignores the other sentences.

Thanks in advance for your help!


Sum AsteriskText()

Dim keepSearch As Boolean

keepSearch = False

Selection.Tables(1).Columns(3).Select


Do
Selection.Find.ClearFormatting
Selection.Find.Font.Bold = True


With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute


If Selection.Find.Found Then
keepSearch = True
Else
keepSearch = False
End If

With Selection
.InsertBefore "**"

End With


Loop While keepSearch


End Sub