|
|
#2
06-08-2014, 03:08 AM
|
||||
|
||||
Perhaps something based on:
Code:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
.ClearFormatting
.Text = "STOP:[!^13]@NEXT:"
With .Replacement
.ClearFormatting
.Text = "^&"
.Font.ColorIndex = wdRed
End With
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Search for date and then apply mutliple search criteria in huge dataset | maxtymo | Excel | 2 | 12-01-2013 04:52 AM |
| 2013 search results take a long time - they fill in as results in reverse date order | themookman | Outlook | 0 | 10-11-2013 12:01 PM |
| Multiple words, one search | return2300 | Word VBA | 0 | 08-30-2013 12:26 PM |
 Search for words starting in capitals
|
surreytom | Word VBA | 3 | 04-01-2012 01:41 AM |
|
Perform a search for alternative words
|
jungkim | Word | 2 | 03-24-2012 07:40 AM |
Windows 7 32bit 
Office 2010 32bit
Threaded Mode