Range.SpellingErrors (Word)

Devuelve una colección ProofreadingErrors que representa las palabras identificadas como errores ortográficos en el intervalo especificado.

Para obtener información sobre la devolución de un solo miembro de una colección, vea Devolver un solo objeto de una colección.

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