Range.SpellingErrors (Word)

Renvoie une collection ProofreadingErrors qui représente les mots identifiés comme fautes d’orthographe dans la plage spécifiée.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir Renvoi d’un objet unique à partir d’une collection.

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