Dictionaries.ActiveCustomDictionary property (Word)
Returns or sets a Dictionary object that represents the custom dictionary to which words will be added. Read/write.
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 Application.CustomDictionaries.ClearAll Set dicCustom = Application.CustomDictionaries _ .Add(FileName:="C:\Program Files" _ & "\Microsoft Office\Office\Home.dic") Application.CustomDictionaries.ActiveCustomDictionary = dicCustom
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.