Range.SpellingChecked (Word)

True si la ortografía se ha revisado en el intervalo o documento especificado.

Para volver a revisar la ortografía en un documento o intervalo, defina la propiedad SpellingChecked como False. Para ver si el documento o intervalo contiene errores ortográficos, utilice la propiedad SpellingErrors.

Set myRange = ActiveDocument.Sections(1).Range 
isChecked = myRange.SpellingChecked 
If isChecked = False Then 
 myRange.CheckSpelling 
Else 
 MsgBox "Spelling has already been checked in the range." 
End If