Range.SpellingErrors (Word)

Retorna uma coleção ProofreadingErrors que representa as palavras identificadas como erros de ortografia no intervalo especificado. Somente leitura.

Para obter mais informações sobre como retornar um único membro de uma coleção, consulte Retornando um único objeto de uma coleção.

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