Dictionaries.Add, méthode (Word)

Article
04/07/2023

Renvoie un objet Dictionary qui représente un nouveau dictionnaire personnel d'orthographe ou de conversion ajouté à la collection d'orthographe ou de dictionnaires personnels de conversion.

Syntaxe

expression. Add (FileName)

expression Obligatoire. Variable qui représente une collection « Dictionaries ».

Parameters

Nom	Requis/Facultatif	Type de données	Description
FileName	Obligatoire	Chaîne	Nom du fichier contenant le dictionnaire. Si aucun chemin n'est spécifié dans cette chaîne, c'est le chemin d'accès aux outils de vérification qui est utilisé.

Valeur renvoyée

Dictionary

Remarques

Si le fichier dont le nom est désigné par l'argument NomFichier n'existe pas, il est créé par Microsoft Word.

La collection Dictionaries comprend uniquement les dictionnaires personnels actifs. Les objets de dictionnaire qui sont dérivées de la collection Languages n'ont pas une méthode Add. Cela inclut les objets Dictionary renvoyés par les Propriétés ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary et ActiveHyphenationDictionary propriétés.

Utilisez la propriété HangulHanjaDictionaries pour renvoyer la collection de dictionnaires personnels de conversion. La collection HangulHanjaConversionDictionaries comprend uniquement les dictionnaires personnels de conversion actifs.

Exemple

Cet exemple montre comment supprimer tous les dictionnaires de la liste des dictionnaires personnels, puis comment créer un fichier de dictionnaire personnel. Ce nouveau dictionnaire devient le dictionnaire personnel actif dans lequel les nouveaux mots seront automatiquement ajoutés.

With CustomDictionaries 
 .ClearAll 
 .Add FileName:="c:\My Documents\MyCustom.dic" 
 .ActiveCustomDictionary = CustomDictionaries(1) 
End With

Cet exemple montre comment créer un dictionnaire personnel et l'affecter à une variable. Le nouveau dictionnaire personnel est ensuite configuré pour des textes français (canadiens). Pour exécuter une vérification orthographique pour une autre langue, vous devez avoir installé les outils de vérification linguistiques correspondant à cette langue.

Sub FrCanDic() 
 Dim dicFrenchCan As Dictionary 
 
 Set dicFrenchCan = CustomDictionaries.Add(FileName:="FrenchCanadian.dic") 
 With dicFrenchCan 
 .LanguageSpecific = True 
 .LanguageID = wdFrenchCanadian 
 End With 
End Sub

With HangulHanjaDictionaries 
 .ClearAll 
 .Add FileName:="C:\My Documents\MyCustom.hhd" 
 .ActiveCustomDictionary = CustomDictionaries(1) 
End With

Voir aussi

Dictionaries, Collection d'objets

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.

Partager via