Range.SpellingChecked (Word)

True se a ortografia foi feito check em todo o documento ou intervalo especificado. False se todos ou alguns do intervalo ou documento não foi feito check ortográfica. Boolean de leitura/gravação.

Para verificar novamente a ortografia em um intervalo ou documento, defina a propriedade SpellingChecked como False. Para ver se o intervalo ou documento contém erros de ortografia, use a propriedade 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