[word] Find.execute On Individual Basis

Re: [word] Find.execute On Individual Basis

This works but I'm sure there must be a cleaner way for this to be resolved.
The .Wrap = wdFindStop should work but doesn't.
[vba]Sub boldTags()
'Er wordt een LxM tabel aanwezig verondersteld in het word document.
'Elke cel kan een bold woord bevatten. Dit woord wordt dan gezocht en voorzien van
'omringende tags.... bijvoorbeeld: <b>bold_woord</b>

'boldWordFound zal steeds het gevonden bold woord bevatten
Dim boldWord As String

boldWord = ""

'er is maar een enkele tabel en deze wordt geselecteerd
ActiveDocument.Tables(1).Select

'Binnen de selectie, gebruik Find als volgt
With Selection.Find
.Forward = True 'geeft de richting aan waarin gezocht wordt
.Font.Bold = True 'geeft het bold type aan waarna gezocht zal worden
.Wrap = wdFindStop
'====HIER GAAT HET STRAKS MIS: bij het laatst gevonden boldWord blijft het programma loopen
'zolang er bold text gevonden wordt doe hetvolgende
Do While .Execute
boldWord = .Parent.Text 'hiermee wordt de text in de variabele boldWord geplaats
If InStr(1, .Parent.Text, "</b>") > 0 Then Exit Do
.Parent.Text = "<b>" & boldWord & "</b>"
'controle msgbox toont gevonden woord. Bij "loopen" de Cancel knop gebruiken om netjes af te sluiten
If MsgBox("gevonden woord = " + boldWord, vbOKCancel) = vbCancel Then GoTo ENDSUB
Loop

End With

ENDSUB:
End Sub[/vba]