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)

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