Klasse Dictionaries (Word VBA)

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

Dim dcts as Dictionaries
Set dcts = CustomDictionaries

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

ClearAll

Entfernt alle Benutzer- oder Konvertierungswörterbücher.

CustomDictionaries.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 = CustomDictionaries.Count

Item

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

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

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

Maximum

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

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