ActiveThesaurusDictionary Property Example

This example returns the full path and file name of the active thesaurus dictionary.

myLang = Selection.LanguageID
Set myThes = Languages(myLang).ActiveThesaurusDictionary
MsgBox myThes.Path & Application.PathSeparator & myThes.Name