ActiveSpellingDictionary Property

Returns a Dictionary object that represents the active spelling dictionary for the specified language.

expression.ActiveSpellingDictionary

expression Required. An expression that returns a Language object.

Remarks

If there's no spelling dictionary installed for the specified language, this property returns Nothing.

Example

This example returns the full path and file name of the active spelling dictionary.

Dim lngLanguage As Long
Dim dicSpelling As Dictionary

lngLanguage = Selection.LanguageID
Set dicSpelling = Languages(lngLanguage).ActiveSpellingDictionary
If dicSpelling Is Nothing Then
    MsgBox "No spelling dictionary installed!"
Else
    MsgBox dicSpelling.Path & Application.PathSeparator _
& dicSpelling.Name
End If

Applies to | Language Object

See Also | ActiveCustomDictionary Property | ActiveGrammarDictionary Property | ActiveHyphenationDictionary Property | ActiveThesaurusDictionary Property | Languages Property | SpellingDictionaryType Property