For Each d In hash_bdd
temp = Split(d.Value, ";", 3, CompareMethod.Text)
wordRange.Find.ClearFormatting()
wordRange.Find.Text = temp(0)
wordRange.Find.MatchWholeWord = True
wordRange.Find.Replacement.Highlight = True
wordRange.Find.Execute(, , , , , , , , , , replaceAll, , , , )
Next d
|