title: vba to find word or phrase then highlight the entire paragraph that follows it
body: <p>I've used the following code to find a key word or phrase then highlight the line -- but can't figure out how to make it highlight the entire paragraph and/ or list that follows it...</p>
  
  <p>For example:
  (ideally, highlighting this paragraph AND the list that provides further details would be best -but if only the paragraph is achievable, that's better than nothing):</p>
  
  <p>"The Contractor shall turn in monthly status reports within ten business days after the end of each month. The report should include:
  (a) Accomplishments
  (b) Meetings and Outcomes
  (c) Completed Travel and Purpose of Travel"</p>
  
  <p>I've researched several commands and looked for examples but still at a loss as a novice. I tried "wdParagraph" but couldn't get that to work. Located refs of maybe using a "paragraph.range.select" and also found a note that advised these "start" and "end" terms (below) to select a paragraph.. but not sure how to achieve this? Hoping someone has an example of how to accomplish this as it will help greatly with quickly identifying hundreds of software reqs out of a 100 page word doc.. so frustrated!
   * Selection.StartOf Unit:=wdParagraphm
   * Selection.MoveEnd Unit:=wdParagraph</p>
  
  <pre><code>Sub Find_Highlight_Word_to_End_of_Line()
  
  'BUT NEED IT TO HIGHLIGHT THROUGH END OF PARAGRAPH
  'AND HIGHLIGHT LISTED ITEMS IF APPLICABLE
  'LIKE THE LISTS IN THE EXAMPLE DOCUMENT
  
  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
  </code></pre>