lukestkd
02-24-2014, 06:15 AM
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
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