Dictionaries.ActiveCustomDictionary property (Word)

Returns or sets a Dictionary object that represents the custom dictionary to which words will be added. Read/write.


expression. ActiveCustomDictionary

expression A variable that represents a 'Dictionaries' collection.


This example displays the full path and file name of the active custom dictionary.

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

This example clears all existing custom dictionaries, adds a custom dictionary named "Home.dic," and then loads the new dictionary.

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

See also

Dictionaries Collection Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.