Classe Dictionary - dictionnaire (Word VBA)

La classe Dictionary représente un dictionnaire.

Pour utiliser une variable de classe Dictionary, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Dictionary : Dictionaries.ActiveCustomDictionary, Dictionaries.Add, Dictionaries.Item, HangulHanjaConversionDictionaries.ActiveCustomDictionary, HangulHanjaConversionDictionaries.Add, HangulHanjaConversionDictionaries.Item, Language.ActiveGrammarDictionary, Language.ActiveHyphenationDictionary, Language.ActiveSpellingDictionary et Language.ActiveThesaurusDictionary.

For Each

Voici un exemple de traitement des éléments Dictionary dans une collection

Dim dictCustomDictionary As Dictionary
For Each dictCustomDictionary In CustomDictionaries
	
Next dictCustomDictionary

Delete

Supprime le dictionnaire spécifié.

CustomDictionaries(1).Delete

LanguageID

Cette propriété renvoie ou définit une constante WdLanguageID qui représente la langue de l’objet spécifié. Ici on trouve valeurs possible pour WdLanguageID.

Un dictionnaire personnalisé, vous devez définir tout d'abord la propriété LanguageSpecific sur True avant de définir la propriété LanguageID. Il se peut que certaines constantes WdLanguageID ne soient pas disponibles, en fonction de la prise en charge de la langue (anglais (États-Unis), par exemple) que vous avez sélectionnée ou installée.

CustomDictionaries(1).LanguageID = wdAfrikaans

LanguageSpecific

True si le dictionnaire personnalisé doit être utilisé qu'avec du texte rédigé dans une langue spécifique.

Dim dicLoop As Dictionary 
 
For each dicLoop in CustomDictionaries 
 If dicLoop.LanguageSpecific = True Then dicLoop.Delete 
Next dicLoop

Name

Renvoie le nom de l'objet spécifié.

Dim strName As String
strName = CustomDictionaries(1).Name

Path

Renvoie le chemin d'accès au dictionnaire spécifié.

Le chemin d'accès n'inclut pas un caractère de fin — par exemple, « C:\MSOffice » ou « https://MyServer ».

Dim strPath As String
strPath = CustomDictionaries(1).Path

ReadOnly

True : le dictionnaire spécifié ne peut pas être modifié.

Les dictionnaires de grammaire, de coupure de mots, d'orthographe et de synonymes sont en lecture seule.

Dim booReadOnly As Boolean
booReadOnly = CustomDictionaries(1).ReadOnly

Type

Renvoie le type de dictionnaire. Ici on trouve valeurs possible pour WdDictionaryType.

Dim wdtType As WdDictionaryType
wdtType = CustomDictionaries(1).Type