Słowo, które ma zawierać błędy gramatyczne podczas drukowania (zielone i czerwone podkreślenia)

W przypadku arkuszy egzaminacyjnych mojej siostry chce wydrukować dokumenty słowne, w tym błędy gramatyczne (podkreśla zielony, czerwony i niebieski zygzak), aby jej uczniowie mogli to poprawić. Zasugerowałem po prostu umieszczenie kształtów linii na gramatycznie niepoprawnych słowach, ale czy istnieje sposób na włączenie tych linii błędów?

Wpisałem google („dołączaj wiersze błędu gramatycznego podczas drukowania słowa”), ale nie przyniosło to dobrych rezultatów.

Możesz użyć makra, aby dodać rzeczywiste kolorowe faliste podkreślenie do błędów w tekście, a następnie wydrukować.

Sub addlines()
Dim err As Object
    For Each err In ActiveDocument.Range.GrammaticalErrors
        With err.Font
            .Underline = wdUnderlineWavy
            .UnderlineColor = wdColorGreen
        End With
    Next
    For Each err In ActiveDocument.Range.SpellingErrors
        With err.Font
            .Underline = wdUnderlineWavy
            .UnderlineColor = wdColorRed
        End With
    Next
End Sub