Language.ActiveThesaurusDictionary property (Word)

Returns a Dictionary object that represents the active thesaurus dictionary for the specified language.


expression. ActiveThesaurusDictionary

expression An expression that returns a 'Language' object.


If there is no thesaurus dictionary installed for the specified language, this property returns Nothing.


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!" 
 MsgBox dicThesaurus.Path & Application.PathSeparator _ 
 & dicThesaurus.Name 
End If 

See also

Language Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.