Application.CustomDictionaries Property (Word)
Returns a Dictionaries object that represents the collection of active custom dictionaries. Read-only.
Active custom dictionaries are marked with a check in the Custom Dictionaries dialog box. For information about returning a single member of a collection, see Returning an Object from a Collection.
This example adds a new, blank custom dictionary to the collection. The path and file name of the new custom dictionary are then displayed in a message box.
Dim dicHome As Dictionary Set dicHome = CustomDictionaries.Add(Filename:="Home.dic") Msgbox dicHome.Path & Application.PathSeparator & dicHome.Name
This example removes all custom dictionaries so that no custom dictionaries are active. The custom dictionary files aren't deleted, though.
This example displays the name of each custom dictionary in the collection.