Find Word then Highlight Whole Sentence and Paragraph Around it

ChrisOK · #1 09-07-2016, 09:32 AM

The code needs to locate a word/term, then highlight (yellow) the whole sentence containing that word or if it is easier to accomplish,:highlighting the whole paragraph where that word exists would also be awesome!

Not sure if that needs to be 2 separate chunks of code or just a matter of changing a couple of things to make it go from only doing a SENTENCE vs. doing a PARAGRAPH.

Found refs of maybe using a "paragraph.range.select" and also found a note that advised these "start" and "end" terms to select a paragraph.. but not sure how to achieve this?
Selection.StartOf Unit:=wdParagraphm

Selection.MoveEnd Unit:=wdParagraph

Here's the code I'm using now to FIND a word/term and do some highlighting but it is not highlighting the whole sentence (nor) whole paragraph.. perhaps it can be improved upon to work as desired or if not - I'm happy to trash it and start with something better!

Code:

 
Sub Highlight_WordN()
'THIS FINDS A SPECIFIED TERM AS NOTED IN QUOTES BELOW AND HIGHLIGHTS IT IN YELLOW
'IT HIGHLIGHTS SEVERAL OF THE WORDS AROUND IT BUT DOES NOT QUITE PICK UP THE FULL PARAGRAPH I'M LOOKING TO HIGHLIGHT
'NEED TO EDIT IT A BIT TO BE MORE INCLUSIVE
 
Dim sFindText As String
'Start from the top of the document
 Selection.HomeKey wdStory
 
sFindText = "Contractor Shall"
Selection.Find.Execute sFindText
Do Until Selection.Find.Found = False
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.range.HighlightColorIndex = wdYellow
        Selection.MoveRight
        Selection.Find.Execute
Loop
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
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM
Word thinks 1 sentence is 2 paragraphs and won't let me delete the extra paragraph symbol	jrasicmark	Word	1	12-05-2014 01:50 AM
Find/Replace, Duplicating a word in a sentence to hundreds of sentences.	DDDD	Word	0	10-08-2013 10:48 AM
find - reading highlight - highlight all / highlight doesn't stick when saved	bobk544	Word	3	04-15-2009 03:31 PM