Propriété Application.CustomDictionaries (Word)

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

Syntaxe

expression. CustomDictionaries

expressionUne variable qui représente un objetApplication.

Remarques

Une coche figure en regard de ces dictionnaires dans la boîte de dialogue Dictionnaires personnels. Pour plus d’informations sur le renvoi d’un seul membre d’une collection, consultez Renvoi d’un objet à partir d’une collection.

Exemple

Cet exemple montre comment ajouter un nouveau dictionnaire personnel vide à la collection. Le chemin d'accès et le nom de fichier du nouveau dictionnaire personnel sont ensuite affichés dans une boîte de message.

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

Cet exemple montre comment supprimer l'ensemble des dictionnaires personnels afin qu'aucun d'eux ne soit actif. Les fichiers correspondants ne sont cependant pas supprimés.

CustomDictionaries.ClearAll

Cet exemple montre comment afficher le nom de chacun des dictionnaires personnels contenus dans la collection.

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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.