对于我姐姐的试卷,她想打印包含语法错误(绿色、红色和蓝色锯齿形下划线)的 Word 文档,以便她的学生可以纠正。我建议简单地在语法错误的单词上放置线条,但有没有办法包含这些错误线条?
我在谷歌中输入(“打印单词时包含语法错误行”),但没有得到很好的结果。
答案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