Formatting table cells in a document

[lukestkd]

Hello all,


I have the following code which formats a specific piece of text in a mail merge document, however the text is in a series of cells, and I would like to be able to format the actual cell rather than the text itself.

Is there a way to modify the code I have to do this?

Many thanks,

Luke

Sub HighlightTargetsN()

Dim range As range
Dim i As Long
Dim TargetList

TargetList = Array("MMN") ' put list of terms to find here

For i = 0 To UBound(TargetList)

Set range = ActiveDocument.range

With range.Find
.Text = TargetList(i)
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

Do While .Execute(Forward:=True) = True
range.HighlightColorIndex = wdRed
range.Bold = True
range.Font.ColorIndex = wdRed
range.Font.Underline = wdUnderlineThick
range.Font.UnderlineColor = wdRed
range.Font.Name = "TW Cen MT"
range.Font.Size = 14
Loop

End With
Next

End Sub