SpellingErrors Property Example

This example checks the active document for spelling errors and displays the number of errors found.

myErr = ActiveDocument.SpellingErrors.Count
If myErr = 0 Then
    Msgbox "No spelling errors found."
Else
    Msgbox myErr & " spelling errors found."
End If

This example checks the specified range for spelling errors and displays each error found.

Set myErrors = ActiveDocument.Paragraphs(3).Range.SpellingErrors
If myErrors.Count = 0 Then
    Msgbox "No spelling errors found."
Else
    For Each myErr in myErrors
        Msgbox myErr.Text
    Next
End If