Language.ActiveThesaurusDictionary Property (Word)
Returns a Dictionary object that represents the active thesaurus dictionary for the specified language.
Syntax
expression .ActiveThesaurusDictionary
expression An expression that returns a Language object.
Remarks
If there is no thesaurus dictionary installed for the specified language, this property returns Nothing.
Example
This example returns the full path and file name of the active thesaurus dictionary.
Dim lngLanguage As Long
Dim dicThesaurus As Dictionary
lngLanguage = Selection.LanguageID
Set dicThesaurus = Languages(lngLanguage).ActiveThesaurusDictionary
If dicThesaurus Is Nothing Then
MsgBox "No thesaurus dictionary installed!"
Else
MsgBox dicThesaurus.Path & Application.PathSeparator _
& dicThesaurus.Name
End If