Ce n'est pas prévu, mais avec une macro... rien d'impossible !
La macro suivante ajoute des soulignés rouge pour les fautes d'orthographe et des soulignés bleus pour les fautes de grammaire. Elle imprime puis ôte tous ces soulignés.
Sub SouligneErreurs()
Dim faute
'ajoute les soulignés
For Each faute In ActiveDocument.GrammaticalErrors
With faute.Font
.Underline = wdUnderlineDouble
.UnderlineColor = wdColorBlue
End With
Next faute
For Each faute In ActiveDocument.SpellingErrors
With faute.Font
.Underline = wdUnderlineWavy
.UnderlineColor = wdColorRed
End With
Next faute
'Imprime
ActiveDocument.PrintOut
'Retire les soulignés
For Each faute In ActiveDocument.GrammaticalErrors
faute.Font.Underline = none
Next
For Each faute In ActiveDocument.SpellingErrors
faute.Font.Underline = none
Next
End Sub
Dim faute
'ajoute les soulignés
For Each faute In ActiveDocument.GrammaticalErrors
With faute.Font
.Underline = wdUnderlineDouble
.UnderlineColor = wdColorBlue
End With
Next faute
For Each faute In ActiveDocument.SpellingErrors
With faute.Font
.Underline = wdUnderlineWavy
.UnderlineColor = wdColorRed
End With
Next faute
'Imprime
ActiveDocument.PrintOut
'Retire les soulignés
For Each faute In ActiveDocument.GrammaticalErrors
faute.Font.Underline = none
Next
For Each faute In ActiveDocument.SpellingErrors
faute.Font.Underline = none
Next
End Sub
