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