共用方式為


Word) (Application.CustomDictionaries 屬性

會傳回代表使用中自訂字典集合的 Dictionaries 物件。 唯讀。

語法

expressionCustomDictionaries

expression 代表 Application 物件的變數。

註解

在 [自訂字典] 對話方塊中,會用勾號標示出使用中自訂字典。 如需傳回集合中單一成員的資訊,請參閱 從集合傳回物件

範例

本範例會將新的空白自訂字典新增至集合。 然後,新自訂字典的路徑和檔案名會顯示在訊息方塊中。

Dim dicHome As Dictionary 
Set dicHome = CustomDictionaries.Add(Filename:="Home.dic") 
Msgbox dicHome.Path & Application.PathSeparator & dicHome.Name

此範例會移除所有自訂字典,因此不會有使用中的自訂字典。 但不會刪除自訂字典檔案。

CustomDictionaries.ClearAll

此範例會顯示集合中的每個自訂字典。

Dim dicLoop As Dictionary 
 
For Each dicLoop In CustomDictionaries 
 MsgBox dicLoop.Name 
Next dicLoop

另請參閱

Application 物件

支援和意見反應

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