ActiveCustomDictionary Property Example
This example displays the full path and file name of the active custom dictionary.
Set myCust = Application.CustomDictionaries.ActiveCustomDictionary
MsgBox myCust.Path & Application.PathSeparator & myCust.Name
This example clears all existing custom dictionaries, adds a custom dictionary named "Home.dic," and then loads the new dictionary.
Application.CustomDictionaries.ClearAll
Set myCust = Application.CustomDictionaries _
.Add(FileName:="C:\Program Files" _
& "\Microsoft Office\Office\Home.dic")
CustomDictionaries.ActiveCustomDictionary = myCust