Clase HangulHanjaConversionDictionaries (Word VBA)

Una colección de objetos Dictionary que incluye los diccionarios de Conversión hangul-hanja personalizados activos. Para usar una variable de clase HangulHanjaConversionDictionaries, primero debe ser instanciado, por ejemplo

Dim hhcs as HangulHanjaConversionDictionaries
Set hhcs = HangulHanjaDictionaries

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

ClearAll

Descarga todos los diccionarios personalizados o de conversión.

El método ClearAll no elimina los archivos de diccionario de conversión.

HangulHanjaDictionaries.ClearAll

Count

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

Dim lngCount As Long
lngCount = HangulHanjaDictionaries.Count

Item

Devuelve un objeto Dictionary individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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

Maximum

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

Dim lngMaximum As Long
lngMaximum = HangulHanjaDictionaries.Maximum