Klasse HangulHanjaConversionDictionaries (Word VBA)

Eine Auflistung von Dictionary -Objekten, die die aktiven benutzerdefinierten Hangul-Hanja-Konvertierungswörterbücher enthält. Um eine HangulHanjaConversionDictionaries -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim hhcs as HangulHanjaConversionDictionaries
Set hhcs = HangulHanjaDictionaries

ActiveCustomDictionary

Gibt ein Dictionary -Objekt zurück, das das Benutzerwörterbuch darstellt, dem Wörter hinzugefügt werden, oder legt dieses fest.

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

Add

Gibt ein Dictionary -Objekt zurück, das eine neue benutzerdefinierte Rechtschreibung oder ein neues Konvertierungswörterbuch darstellt, das der Auflistung aktiver benutzerdefinierter Rechtschreib-oder Konvertierungswörterbücher hinzugefügt.

Wenn keine Datei mit dem durch den FileName-Parameter angegebenen Namen vorhanden ist, wird von Microsoft Word eine Datei mit diesem Namen erstellt. Die Dictionaries-Auflistung enthält nur die aktiven Benutzerwörterbücher. Verwenden Sie die HangulHanjaDictionaries -Eigenschaft, um die Auflistung von benutzerdefinierten Konvertierungs Wörterbüchern zurückzugeben.

Add (FileName)

FileName: Der Zeichenfolgename der Wörterbuchdatei.

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

ClearAll

Entfernt alle Benutzer- oder Konvertierungswörterbücher.

Mit der ClearAll-Methode werden die Dateien der Konvertierungswörterbücher nicht entfernt.

HangulHanjaDictionaries.ClearAll

Count

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Wörterbücher in der Auflistung darstellt.

Dim lngCount As Long
lngCount = HangulHanjaDictionaries.Count

Item

Gibt ein einzelnes Dictionary -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

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

Maximum

Gibt die maximal zulässige Anzahl von Benutzer- oder Konvertierungswörterbüchern zurück.

Dim lngMaximum As Long
lngMaximum = HangulHanjaDictionaries.Maximum