Document.GrammarChecked (Word)

True si une vérification de la grammaire a été exécutée sur la plage spécifiée ou le document.

Renvoie false si la grammaire n’a pas été vérifiée pour tout ou partie du document spécifié.

Set myStat = ActiveDocument.ReadabilityStatistics 
passGram = ActiveDocument.GrammarChecked 
If passGram = True Then 
 Msgbox myStat(1).Name & " - " & myStat(1).Value 
Else 
 ActiveDocument.CheckGrammar 
End If