Share via

ActiveThesaurusDictionary Property

  • Article

ActiveThesaurusDictionary 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 thesaurus dictionary for the specified language.

expression.ActiveThesaurusDictionary

expression   Required. An expression that returns a Language object.

Remarks

If there's 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