Clase Dictionary - diccionario (Word VBA)

La clase Dictionary representa un diccionario. Para usar una variable de clase Dictionary, primero debe ser instanciado, por ejemplo


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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Dictionary en una colección.


Dim dictCustomDictionary As Dictionary
For Each dictCustomDictionary In CustomDictionaries
	
Next dictCustomDictionary

Delete

Elimina el diccionario especificado.


CustomDictionaries(1).Delete

LanguageID

Devuelve o establece una constante WdLanguageID que representa el idioma del objeto especificado. Aquí puede ver valores posibles para WdLanguageID.

Para utilizar un diccionario personalizado, en primer lugar debe establecer la propiedad LanguageSpecific en True antes de especificar la propiedad LanguageID. Puede que algunas constantes WdLanguageID no estén disponibles para usted, según la compatibilidad con el idioma (por ejemplo, Inglés estadounidense) que haya seleccionado o instalado.


CustomDictionaries(1).LanguageID = wdAfrikaans

LanguageSpecific

True si el diccionario personalizado va a utilizarse sólo con texto con formato para un idioma específico.


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

Name

Devuelve el nombre del objeto especificado.


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

Path

Devuelve la ruta de acceso al diccionario especificado.

La ruta de acceso no incluye un carácter final, por ejemplo, "C:\MSOffice" o "https://MyServer".


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

ReadOnly

True si no se puede cambiar el diccionario especificado.

Los diccionarios activos gramaticales, ortográficos, de división de palabras y de sinónimos activos son de sólo lectura.


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

Type

Devuelve el tipo de diccionario. Aquí puede ver valores posibles para WdDictionaryType.


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