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