Recherche

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

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

64

Pays
018273548
Aujourd'hui: 3
Hier: 93
Cette semaine: 654
Semaine dernière: 1.156
Ce mois: 1.810