ActiveCustomDictionary Property

Applies To

Dictionaries collection object.

Description

Returns or sets a Dictionary object that represents the custom dictionary to which words will be added. Read/write.

See Also

Add method (Dictionaries collection), CustomDictionaries 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\WinWord\Home.dic")
CustomDictionaries.ActiveCustomDictionary = myCust