Ctrl+F entire bodies of text?

Guessed · #13 08-01-2016, 06:39 PM

Try a macro like this to highlight any paragraphs that contain the string provided by the user.

Code:

Sub HighlightHits()
  Dim aPara As Paragraph, sFind As String
  sFind = LCase(InputBox("What are we looking for today?", "Finder", "Office"))
  ActiveDocument.Range.HighlightColorIndex = wdNoHighlight
  For Each aPara In ActiveDocument.Paragraphs
    If InStr(LCase(aPara.Range.Text), sFind) > 0 Then
      aPara.Range.HighlightColorIndex = wdDarkYellow
    End If
  Next aPara
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlook 2007 not downloading message bodies automatically	Mr Davo	Outlook	3	02-09-2014 09:23 PM
Scrolling text for entire presentation	rtully87	PowerPoint	0	11-07-2013 09:28 AM
Continuous scrolling text for entire presentation	rtully87	PowerPoint	0	10-25-2013 08:37 AM
Editing Text through your entire presentation macVSpc	PowerPointSD	PowerPoint	1	12-06-2012 08:42 AM
Moving Entire Text	Sleeper	Word	2	01-10-2010 04:40 PM