Language.ActiveThesaurusDictionary 属性 (Word)

返回表示指定语言活动同义词词典的 词典 对象。

语法

expression。 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 

另请参阅

语言对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。