Classe Dictionaries (Word VBA)

Collection d’objets dictionary qui inclut les dictionnaires personnels actifs. Pour utiliser une variable de classe Dictionaries, elle doit d'abord être instanciée, par exemple

Dim dcts as Dictionaries
Set dcts = CustomDictionaries

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 CustomDictionaries 
 .ClearAll 
 .Add FileName:="c:\My Documents\MyCustom.dic" 
 .ActiveCustomDictionary = CustomDictionaries(1) 
End With

ClearAll

Décharge tous les dictionnaires personnels ou de conversion.

CustomDictionaries.ClearAll

Count

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

Dim lngCount As Long
lngCount = CustomDictionaries.Count

Item

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

Item (Index)

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

Dim dict As Dictionary
Set dict = CustomDictionaries(Index:=1)

Maximum

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

If CustomDictionaries.Count = CustomDictionaries.Maximum Then 
 MsgBox "Cannot add another dictionary file" 
Else 
 CustomDictionaries.Add "MyDictionary.dic" 
End If