Word) (Language.ActiveThesaurusDictionary 屬性

會傳回代表指定語言之使用中同義字字典的 Dictionary 物件。

語法

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 

另請參閱

Language 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。