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
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.