Find Word then Highlight Whole Sentence and Paragraph Around it

ChrisOK · #4 09-08-2016, 08:16 PM

Thanks for the help and the cross-post etiquette link- I read it and have done/will continue to my best to make sure no one is left hanging. (that's one thing that's so frustrating - coming across a post that's EXACTLY what you need an answer to but no one ever posted a solution.. Either (a) the poor soul just gave up or (b) found an answer elsewhere and never came back to share it.. We'll never know which - but for anyone who comes across this one, I've got at least 2 solutions that newbies like me can review, (hopefully learn from) and use as they wish to help them too! It never ceases to amaze me how there's so many diff ways to achieve the same outcome.. interesting to read each line to see how the methods differ... (well, at least it is to me as someone who's still learning)

Method 1 Code (MatchWildcards=False):

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = "Contractor Shall"
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindStop
  .Format = True
  .MatchWildcards = False
  .Execute
  End With
  Do While .Find.Found
  .Duplicate.Paragraphs.First.Range.HighlightColorIndex = wdYellow
  .Start = .Duplicate.Paragraphs.First.Range.End
  .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

Method 2 Code (Alternative):

Code:

Sub Highlight_Paragraph()
  Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
  Do While .Execute(FindText:="Contractor Shall")
  oRng.Paragraphs(1).Range.HighlightColorIndex = wdYellow
  oRng.Collapse 0
  Loop
  End With
  lbl_Exit:
  Set oRng = Nothing
  Exit Sub
  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