After:
i As Long
insert:
, Hlite As Long
on the same line.
After:
strFile = Dir(strFolder & "\*.doc", vbNormal)
insert new lines with:
'Set the preferred highlight colour
Hlite = Options.DefaultHighlightColorIndex
Options.DefaultHighlightColorIndex = wdBrightGreen
After:
.Replacement.ClearFormatting
insert new lines with:
.Replacement.Highlight = True
.Format = True
After:
Set wdDoc = Nothing
insert new lines with:
'Restore the original highlight setting
Options.DefaultHighlightColorIndex = Hlite
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|