Document.GrammarChecked (Word)

True si se ha ejecutado una revisión gramatical en el documento o intervalo especificado.

Devuelve false si no se ha revisado gramaticalmente todo el documento especificado o parte del mismo.

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