Clase Dictionaries (Word VBA)

Una colección de objetos Dictionary que incluye los diccionarios ortográficos personalizados activos. Para usar una variable de clase Dictionaries, primero debe ser instanciado, por ejemplo

Dim dcts as Dictionaries
Set dcts = CustomDictionaries

ActiveCustomDictionary

Devuelve o establece un objeto Dictionary que representa el diccionario personalizado al que se agregarán las palabras.

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

Add

Devuelve un objeto Dictionary que representa un nuevo Diccionario de conversión o de ortografía personalizado agregado a la colección de diccionarios de conversión o de ortografía personalizados activos.

Si no existe ningún archivo con el nombre especificado mediante el parámetro FileName, Microsoft Word lo creará. La colección Dictionaries incluye solamente los diccionarios ortográficos personalizados activos. Utilice la propiedad HangulHanjaDictionaries para devolver la colección de diccionarios de conversión personalizados.

Add (FileName)

FileName: Nombre de la cadena del archivo del diccionario.

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

ClearAll

Descarga todos los diccionarios personalizados o de conversión.

CustomDictionaries.ClearAll

Count

Devuelve un Long que representa el número de diccionarios de la colección.

Dim lngCount As Long
lngCount = CustomDictionaries.Count

Item

Devuelve un objeto Dictionary individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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

Maximum

Devuelve el número máximo de diccionarios personalizados o de conversión permitidos.

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