Application.CustomDictionaries (Word)

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

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.

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