Compartilhar via


Language.ActiveThesaurusDictionary Property

Word Developer Reference

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.

Visual Basic for Applications
  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

See Also