Слово для включения грамматических ошибок при печати (зеленое и красное подчеркивание)

Question

Для экзаменационных листов моей сестры она хочет напечатать текстовые документы, включая грамматические ошибки (зеленым, красным и синим зигзагообразным подчеркиванием), чтобы ее ученики могли исправить это. Я предложил просто разместить формы линий на грамматически неправильных словах, но есть ли способ включить упомянутые линии ошибок?

Я набрал в Google ("грамматически включать строки ошибок при печати слова"), но это не дало хороших результатов.

Answer 1

Вы можете использовать макрос, чтобы добавить фактические цветные волнистые подчеркивания к ошибкам в тексте для вас, а затем распечатать его.

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