Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Export (0) Print
Expand All
Expand Minimize

Application.CustomDictionaries Property (Word)

Returns a Dictionaries object that represents the collection of active custom dictionaries. Read-only.

expression .CustomDictionaries

expression A variable that represents an Application object.

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.

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