|
|
#7
02-05-2016, 05:53 PM
|
||||
|
||||
To do that, replace:
With ActiveDocument.Range with: Dim RngFnd As Range Set RngMain = Selection.Range With Selection.Range and insert: If Not .InRange(RngMain) Then Exit Sub before: If .Font.Bold = 9999999 Or .Font.Italic = 9999999 Then
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Entering new text in different color in an existing document
|
davidbish79 | Word | 4 | 03-03-2015 12:58 AM |
| how to add text to a document without existing text moving around? | Athalwolf | Word | 7 | 12-16-2014 05:16 PM |
|
Text format different than existing one
|
Manrak | Word | 1 | 08-11-2013 04:51 PM |
| Macro for tagging and rearranging selected text for revision | caotico | Word VBA | 0 | 03-28-2012 06:35 PM |
| Formatting existing text | Kaila | Word | 0 | 09-03-2011 05:40 PM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode