Microsoft Office Forums - View Single Post - Automatically color the right options in red based on the answers provided

gmayor · 12-17-2017, 10:17 PM

Sorry. I missed that bit

Add the following two lines before Next iQuest i.e.

Code:

        oAns.End = oAns.Paragraphs(1).Range.End - 1
        oAns.Text = ""
    Next iQuest    'and process the next question

This will remove the text from the line with the answer. If you remove the line it will screw up the count. However if you don't want the extra empty lines, use the following:

Code:

Sub ClearBlanks()
Dim oPara As Paragraph
    On Error Resume Next
    For Each oPara In ActiveDocument.Paragraphs
        If Len(oPara.Range) = 1 Then If Len(oPara.Range.Next.Paragraphs(1).Range) = 1 Then oPara.Range.Delete
    Next oPara
lbl_Exit:
    Exit Sub
End Sub