This documentation is archived and is not being maintained.

ActiveSpellingDictionary Property

ActiveSpellingDictionary Property
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

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


expression   Required. An expression that returns a Language object.


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


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!"
    MsgBox dicSpelling.Path & Application.PathSeparator _
        & dicSpelling.Name
End If