View Single Post
 
Old 02-18-2013, 01:50 PM
fumei fumei is offline Windows 7 64bit Office XP
Expert
 
Join Date: Jan 2013
Posts: 440
fumei is on a distinguished road
Default

or....

Code:
Sub Sev_ER()
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
   Do While .Execute(findtext:="severe", Forward:=True) = True
      With r
         .MoveStart 1, 3
         .MoveEnd 1, -1
         .HighlightColorIndex = wdGreen
         .Collapse 0
      End With
   Loop
End With
End Sub
Reply With Quote