|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
find - reading highlight - highlight all / highlight doesn't stick when saved
Hello, When i go to find all references to a word and then highlight all the words fouind via: find - reading highlight - highlight all - then select a highlight color the color is propogated to all of the words found but, when i try to save those highlighted references, they do not save even when i create new document. i some cases it works but i've just now tried over 15 times with many permuatations on the approach and the found and highlighted words will not save! any ideas or solutions would be greatly appreciated! BobK Virginia |
#2
|
||||
|
||||
The Reading Highlight is designed to highlight only while reading that session - It isn't meant to save!
If you wish to find and highlight a word throughout your document so that you can save it, then try this little macro - copy the entire code below and add it to an module in the VBA window (Alt+F11 > Insert > Module > (double-click the new Module) > Paste the code > replace the word "Quick" with "your word or string", then go to the View tab, click Macros > view and run the one called 'Find_and_highlight_Loop') - that should do the trick and save the highlight for you! Code:
Sub Find_and_Highlight_Loop() ' ' This macro will find the word in speech marks "", select it, highlight it and ' then move on and find the next one until it reaches the end of the document. ' ' To add more words, then copy the text between the markers and paste after the ' last marker ' Don't forget to replace the word ;-) ' <----------------> Selection.Find.ClearFormatting With Selection.Find .Text = "Quick" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow Loop ' <----------------> End Sub |
#3
|
|||
|
|||
Ok thanks very much BIRD that is really a suprising revelation as i used that particular feature alot in 2003! but i will give that a try!
Have a great week BIRD and thanks a bunch for you time and dedication to helping others and wonderful and rare trait these days! BobK |
#4
|
|||
|
|||
Ok just tried that BIRD and it worked great, plus i learned some interesting new techniques at the same time, so the problem was well worth the learning experience! here's the result!
The Reading Highlight is designed to highlight only while reading that session - It isn't meant to save! If you wish to find and highlight a word throughout your document so that you can save it, then try this little macro - copy the entire code below and add it to an module in the VBA window (Alt+F11 > Insert > Module > (double-click the new Module) > Paste the code > replace the word "Quick" with "your word or string", then go to the View tab, click Macros > view and run the one called 'Find_and_highlight_Loop') - that should do the trick and save the highlight for you! Sub Find_and_Highlight_Loop() ' ' This macro will find the word in speech marks "", select it, highlight it and ' then move on and find the next one until it reaches the end of the document. ' ' To add more words, then copy the text between the markers and paste after the ' last marker ' Don't forget to replace the word ;-) ' <----------------> Selection.Find.ClearFormatting With Selection.Find .Text = "Quick" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow Loop ' <----------------> End Sub |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Find and Replace is not working | Brigitte | Word | 7 | 06-15-2021 05:10 PM |
Documents saved to wrong folder | stevecarr | Word | 1 | 09-22-2011 05:32 AM |
help with find and replace | sjkiss | Word | 1 | 04-12-2010 08:08 AM |
Find and Replace Macro - A Better Way | Tribos | Word VBA | 0 | 10-08-2008 03:22 AM |
highlight cell after checkbox | flatk | Word | 0 | 01-25-2007 12:32 PM |