Word) (Dictionaries.ActiveCustomDictionary 屬性

會傳回或設定代表將要新增單字的自訂字典的 Dictionary 物件。 讀取/寫入。

語法

expression。 ActiveCustomDictionary

表達 代表 'Dictionaries' 集合的變數。

範例

本範例會顯示使用中自訂字典的完整路徑及檔案名稱。

Set dicCustom = Application.CustomDictionaries.ActiveCustomDictionary 
MsgBox dicCustom.Path & Application.PathSeparator & dicCustom.Name

本範例會清除所有現有的自訂字典、新增名為 "Home.dic" 的自訂字典，然後載入新字典。

Dim dicCustom As Dictionary 
 
Application.CustomDictionaries.ClearAll 
 
Set dicCustom = Application.CustomDictionaries _ 
 .Add(FileName:="C:\Program Files" _ 
 & "\Microsoft Office\Office\Home.dic") 
Application.CustomDictionaries.ActiveCustomDictionary = dicCustom

另請參閱

Dictionaries 集合物件

支援和意見反應

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