Highlight parent word

norgro · #1 03-08-2013, 11:59 PM

I am creating macros to assist with the teaching of Braille.

I need to create a macro to highlight all words in a document that contain the text "ever".

I thought ".parent" would refer to the word that contained the search text, but it did not seem to work.

Your help would be appreciated.

Norman

My code:
Sub FindEver()
Set oRng = ActiveDocument.Range
' Search document for specified text and highlight parent word.

Selection.HomeKey Unit:=wdStory
With oRng.Find
.Text = "ever"
.Wrap = wdFindStop 'stops at the end of the document
While .Execute
oRng.Characters.Parent.HighlightColorIndex = wdYellow
Wend
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and highlight multiple words in MS Word document	AtaLoss	Word VBA	37	09-22-2021 12:04 PM
how to selectively highlight text in word	cnyoon2	Word	1	08-04-2015 08:16 AM
Want "cloud" shape in Word, to highlight changes	Arbie	Word	1	03-31-2012 05:22 AM
Highlight un-identifiable	wolfer	Word VBA	0	08-24-2011 06:37 AM
find - reading highlight - highlight all / highlight doesn't stick when saved	bobk544	Word	3	04-15-2009 03:31 PM