Highlighting paragraphs based on find results

Guessed · #4 09-16-2020, 06:19 PM

Here is one approach. It assumes you have an "Answer" style in your document to apply to the correct answers. You can then have a secondary macro that toggles the "Answer" style as being same/different to the Normal style if you wanted to show or hide the answers.

Code:

Sub MarkAnswers()
  Dim lngPara As Long, iOffset As Integer, sAnswer As String
  For lngPara = 1 To ActiveDocument.Paragraphs.Count
    If Left(ActiveDocument.Paragraphs(lngPara).Range.Text, 5) = "Ans: " Then
      sAnswer = ActiveDocument.Paragraphs(lngPara).Range.Words(3)
      iOffset = Asc(sAnswer) - 69
      Debug.Print lngPara, sAnswer, iOffset
      ActiveDocument.Paragraphs(lngPara + iOffset).Range.Style = "Answer"
    End If
  Next lngPara
End Sub

Sub ToggleAnswerShow()
  Dim aSty As Style
  With ActiveDocument.Styles("Answer")
    If .Font.Bold = ActiveDocument.Styles("Normal").Font.Bold Then
      .Font.Bold = True
      .Font.ColorIndex = wdGreen
    Else
      .Font = ActiveDocument.Styles("Normal").Font
    End If
  End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find/Replace Results in CAPS	RKS-P	Word	12	09-30-2019 08:26 AM
Rolling up monthly results based on weeknum?	chollyred	Excel	1	08-26-2016 08:20 AM
Highlighting Excel FIND Results	rstrimel	Excel	7	09-10-2014 07:54 AM
SUMIF results changed based on filters	SteveBump	Excel	5	10-29-2013 07:25 AM
Copy Row based on yellow highlighting.	imogul	Excel	2	09-28-2011 04:11 AM