Hi Ricardo,

The following demo shows how to distinguish the cases. The name of the
constant wdSpellingCorrect is unfortunate -- if the item was really
correct, it wouldn't be in the SpellingErrors collection.

Sub SpellDemo()
   Dim msg As String
   Dim rgError As Range
   Dim suggs As SpellingSuggestions
   
   For Each rgError In ActiveDocument.SpellingErrors
       Set suggs = rgError.GetSpellingSuggestions
       
       Select Case suggs.spellingErrorType
           Case wdSpellingCorrect:
               msg = "Repeated word"
           Case wdSpellingNotInDictionary:
               msg = "Not in dictionary"
           Case wdSpellingCapitalization:
               msg = "Incorrect capitalization"
       End Select
       
       rgError.Select
       MsgBox msg
   Next
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP        FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.