Klasse Dictionary - Wörterbuch (Word VBA)

Die Klasse Dictionary stellt ein Wörterbuch dar.

Um eine Dictionary -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der Dictionary Klassenvariablen verwendet werden : Dictionaries.ActiveCustomDictionary, Dictionaries.Add, Dictionaries.Item, HangulHanjaConversionDictionaries.ActiveCustomDictionary, HangulHanjaConversionDictionaries.Add, HangulHanjaConversionDictionaries.Item, Language.ActiveGrammarDictionary, Language.ActiveHyphenationDictionary, Language.ActiveSpellingDictionary und Language.ActiveThesaurusDictionary.

For Each

Hier ist ein Beispiel für die Verarbeitung der Dictionary -Elemente in einer Sammlung

Dim dictCustomDictionary As Dictionary
For Each dictCustomDictionary In CustomDictionaries
	
Next dictCustomDictionary

Delete

Löscht das angegebene Wörterbuch.

CustomDictionaries(1).Delete

LanguageID

Gibt eine WdLanguageID -Konstante zurück, die die Sprache für das angegebene Objekt darstellt, oder legt diese fest. Dies sind mögliche Werte für WdLanguageID.

Für ein Benutzerwörterbuch müssen Sie zunächst die LanguageSpecific -Eigenschaft auf true festlegen, bevor Sie die Language -Eigenschaft angeben. Einige WdLanguageID -Konstanten stehen Ihnen möglicherweise nicht zur Verfügung, abhängig von der Sprachunterstützung (beispielsweise US-Englisch), die Sie ausgewählt oder installiert haben.

CustomDictionaries(1).LanguageID = wdAfrikaans

LanguageSpecific

True, wenn das Benutzerwörterbuch nur für Text verwendet wird, der für eine bestimmte Sprache formatiert wurde.

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

Name

Gibt den Namen des angegebenen Objekts zurück.

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

Path

Gibt den Pfad zum angegebenen Wörterbuch zurück.

Der Pfad enthält kein nachstehendes Zeichen, z. B. "C:\MSOffice" oder "https://MyServer".

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

ReadOnly

True, wenn das angegebene Wörterbuch nicht geändert werden kann.

Die aktiven Grammatik-, Silbentrennungs-, Thesaurus- und Rechtschreibwörterbücher sind schreibgeschützt.

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

Type

Gibt den Typ des Wörterbuchs zurück. Dies sind mögliche Werte für WdDictionaryType.

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