Microsoft Office Forums - View Single Post - [Solved] Highlight only the characters ER when it occurs in SEVERE.

norgro · 02-18-2013, 01:53 AM

I am creating a macro to assist with the teaching of Braille for the sighted.

The aim is to highlight in a Word document every occurrence of the characters ER, but only when they occur in the word SEVERE.

I have written code to find occurrences of SEVERE, but I cannot work out how to highlight only the letters ER in every occurrence of the word SEVERE.

If someone can help, I would be very grateful.

The code, as far as I have gone at this stage:

Code:

Sub Highlight_ER_in_SEVERE()
'
'Search for "severe". Highlight only the letters "er".
Set oRng = ActiveDocument.Range
With oRng.Find
  .MatchWholeWord = True
  .Text = "severe"
  .Wrap = wdFindStop 'stops at the end of the document
  While .Execute
    oRng.HighlightColorIndex = wdGreen
  Wend
End With
End Sub