SpellingErrorType Property Example

If the first word in the active document isn't in the dictionary, this example displays "Unknown word" in the status bar.

Set suggs = ActiveDocument.Content.GetSpellingSuggestions
If suggs.SpellingErrorType = wdSpellingNotInDictionary Then
    StatusBar = "Unknown word"
End If