how to find, select and change colour of words in table (VBA) ?

[Peter]

Hello

I have one table with words (YES) or (NO). I'd like to write VBA code which
could find, select and change colour to red of (YES) words in table.
Could you help me to write VBA code with it ?
I'm looking forward to your replies.

Regards

Peter

 

[Dave Lett]

Hi Peter,

You can use something like the following:

Dim oRng As Range
'''set a placeholder for the current selection
'''at the end of the routine re-selec the current
'''selection
Set oRng = Selection.Range
With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Text = "Yes"
Do While .Execute
If Selection.Information(wdWithInTable) Then
Selection.Font.Color = wdColorRed
End If
Loop
End With
End With
'''re-select the original selection
oRng.Select

HTH,
Dave