Highlight not working for me Help
Sub NonBreakSpace()
Application.ScreenUpdating = False
Options.DefaultHighlightColorIndex = wdTurquoise
Selection.Find.Replacement.Highlight = True
Dim StrFR As String, i As Long
StrFR = "[<(et)> <(al)>]|\1^s\2"
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Replacement.Highlight = wdTurquoise
For i = 0 To UBound(Split(StrFR, "|")) Step 2
.text = Split(StrFR, "|")(i)
.Replacement.text = Split(StrFR, "|")(i + 1)
.Execute Replace:=wdReplaceAll
Next
End With
Application.ScreenUpdating = True
End Sub
|