Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Word > Word

Reply
 
LinkBack Thread Tools Display Modes
  #1  
Old 04-15-2009, 11:19 AM
bobk544 bobk544 is offline Windows 7 32bit Office 2010 32bit
Novice
 
Join Date: Apr 2009
Posts: 10
bobk544 is on a distinguished road
Default 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
Reply With Quote
  #2  
Old 04-15-2009, 01:37 PM
Bird_FAT's Avatar
Bird_FAT Bird_FAT is offline Office 2007
Expert
 
Join Date: Apr 2009
Location: South East
Posts: 271
Bird_FAT is on a distinguished road
Default

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
;-)
Reply With Quote
  #3  
Old 04-15-2009, 03:13 PM
bobk544 bobk544 is offline Windows 7 32bit Office 2010 32bit
Novice
 
Join Date: Apr 2009
Posts: 10
bobk544 is on a distinguished road
Default

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
Reply With Quote
  #4  
Old 04-15-2009, 03:31 PM
bobk544 bobk544 is offline Windows 7 32bit Office 2010 32bit
Novice
 
Join Date: Apr 2009
Posts: 10
bobk544 is on a distinguished road
Default

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
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Find and Replace is not working Brigitte Word 6 04-21-2015 08:45 AM
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


All times are GMT -7. The time now is 08:36 AM.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
MSOfficeForums.com is not affiliated with Microsoft