Classe HangulHanjaConversionDictionaries (Word VBA)

Collection d’objets dictionary qui inclut les dictionnaires personnels de Conversion hangûl-hanja actifs. Pour utiliser une variable de classe HangulHanjaConversionDictionaries, elle doit d'abord être instanciée, par exemple

Dim hhcs as HangulHanjaConversionDictionaries
Set hhcs = HangulHanjaDictionaries

ActiveCustomDictionary

Cette propriété renvoie ou définit un objet dictionary qui représente le dictionnaire personnel dans lequel les mots seront ajoutés.

Set dicCustom = Application.CustomDictionaries.ActiveCustomDictionary 
MsgBox dicCustom.Path & Application.PathSeparator & dicCustom.Name

Add

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

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. Utilisez la propriété HangulHanjaDictionaries pour renvoyer la collection de dictionnaires personnels de conversion.

Add (FileName)

FileName: Nom du fichier contenant le dictionnaire.

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

ClearAll

Décharge tous les dictionnaires personnels ou de conversion.

La méthode ClearAll ne supprime pas les fichiers de dictionnaire de conversion.

HangulHanjaDictionaries.ClearAll

Count

Renvoie un type long qui représente le nombre de dictionnaires dans la collection.

Dim lngCount As Long
lngCount = HangulHanjaDictionaries.Count

Item

Renvoie un objet dictionary spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

Dim dictHangulHanjaConversionDictionary As Dictionary
Set dictHangulHanjaConversionDictionary = HangulHanjaDictionaries(Index:=1)

Maximum

Renvoie le nombre maximal de dictionnaires personnels de conversion ou est autorisés.

Dim lngMaximum As Long
lngMaximum = HangulHanjaDictionaries.Maximum