GrammaticalErrors Property Example

This example checks the third paragraph in the active document for grammatical errors and displays each sentence that contains one or more errors.

Set myErrors = ActiveDocument.Paragraphs(3).Range.GrammaticalErrors
For Each myerr In myErrors
    MsgBox myerr.Text
Next myerr

This example checks the active document for grammatical errors. If any errors are found, a new spelling and grammar check is started.

If ActiveDocument.GrammaticalErrors.Count = 0 Then
    Msgbox "There are no grammatical errors."
Else
    ActiveDocument.CheckGrammar
End If