|
|
#3
02-18-2013, 01:50 PM
|
|||
|
|||
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
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 count how many tims a certain value occurs
|
lucnijs | Excel | 6 | 03-26-2012 09:29 AM |
|
Highlight the first X number of characters
|
14spar15 | Word | 1 | 11-13-2011 11:17 PM |
| Highlight Document | Jodib | PowerPoint | 1 | 10-14-2011 07:25 AM |
| Junk characters (box-like characters) in Word file | Sashikala | Word | 1 | 04-20-2010 02:03 PM |
| find - reading highlight - highlight all / highlight doesn't stick when saved | bobk544 | Word | 3 | 04-15-2009 03:31 PM |
Windows 7 64bit 
Office XP
Threaded Mode