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