ActiveThesaurusDictionary Property
Applies To
Language object.
Description
Returns a Dictionary object that represents the active thesaurus dictionary for the specified language. Read-only.
Remarks
If there's no thesaurus dictionary installed for the specified language, this property returns Nothing.
See Also
ActiveGrammarDictionary property, ActiveHyphenationDictionary property, ActiveSpellingDictionary property, Languages property.
Example
This example returns the full path and file name of the active thesaurus dictionary.
myLang = Selection.LanguageID
Set myThes = Languages(myLang).ActiveThesaurusDictionary
MsgBox myThes.Path & Application.PathSeparator & myThes.Name