Application.CustomDictionaries (Word)

Renvoie un objet Dictionaries qui représente la collection de dictionnaires personnels actifs.

Une coche figure en regard de ces dictionnaires dans la boîte de dialogue Dictionnaires personnels.

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