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 

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.