Свойство Language.ActiveThesaurusDictionary (Word)

Возвращает объект Dictionary , представляющий активный словарь тезауруса для указанного языка.

Синтаксис

выражение. ActiveThesaurusDictionary

Выражение Выражение, возвращающее объект Language.

Замечания

Если для указанного языка не установлен словарь тезауруса, это свойство возвращает Значение Nothing.

Пример

В этом примере возвращается полный путь и имя файла активного словаря тезауруса.

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 

См. также

Объект Language

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.