Document.GrammarChecked (Word)

True if a grammar check has been run on the specified range or document.

Returns False if all or some of the specified document has not been checked for grammar. To recheck the grammar in a document, set the GrammarChecked property to False.

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