Document.GrammarChecked (Word)

True se uma verificação gramatical tiver sido executada no documento ou intervalo especificado. Boolean de leitura/gravação.

Retorna false se todos ou alguns do documento especificado não foram verificados para gramática. Para verificar novamente a gramática em um documento, defina a propriedade GrammarChecked como False.

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