Class HangulHanjaConversionDictionaries (Word VBA)

A collection of Dictionary objects that includes the active custom Hangul-Hanja conversion dictionaries. To use a HangulHanjaConversionDictionaries class variable it first needs to be instantiated, for example

Dim hhcs as HangulHanjaConversionDictionaries
Set hhcs = HangulHanjaDictionaries

ActiveCustomDictionary

Returns or sets a Dictionary object that represents the custom dictionary to which words will be added.

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

Add

Returns a Dictionary object that represents a new custom spelling or conversion dictionary added to the collection of active custom spelling or conversion dictionaries.

If a file with the name specified by the FileName parameter doesn't exist, Microsoft Word creates one. The Dictionaries collection includes only the active custom spelling dictionaries. Dictionary objects that are derived from the Languages collection don't have an Add method. These include the Dictionary objects returned by the ActiveSpellingDictionary, ActiveGrammarDictionary, ActiveThesaurusDictionary, and ActiveHyphenationDictionary properties. Use the HangulHanjaDictionaries property to return the collection of custom conversion dictionaries. The HangulHanjaConversionDictionaries collection includes only the active custom conversion dictionaries.

Add (FileName)

FileName: The string name of the dictionary file. If no path is specified in the string, the proofing tools path is used.

With HangulHanjaDictionaries 
 .ClearAll 
 .Add FileName:="C:\My Documents\MyCustom.hhd" 
 .ActiveCustomDictionary = CustomDictionaries(1) 
End With

ClearAll

Unloads all of the custom or conversion dictionaries.

The ClearAll method does not delete the conversion dictionary files. After using this method, the number of conversion dictionaries in the collection is 0 (zero).

HangulHanjaDictionaries.ClearAll

Count

Returns a Long that represents the number of dictionaries in the collection.

Dim lngCount As Long
lngCount = HangulHanjaDictionaries.Count

Item

Returns an individual Dictionary object in a collection.

Item (Index)

Index: The individual object to be returned. Can be a Long indicating the ordinal position or a String representing the name of the individual object.

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

Maximum

Returns the maximum number of custom or conversion dictionaries allowed.

Dim lngMaximum As Long
lngMaximum = HangulHanjaDictionaries.Maximum