Klasse SpellingSuggestion (Word VBA)

Die Klasse SpellingSuggestion stellt einen einzelnen Vorschlag der Rechtschreibprüfung für ein falsch geschriebenes Wort dar.

Set

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

Dim ssn as SpellingSuggestion
Set ssn = GetSpellingSuggestions(Index:=1)

Die folgenden Prozeduren können zum Festlegen der SpellingSuggestion Klassenvariablen verwendet werden : SpellingSuggestions.Item, Application.GetSpellingSuggestions und Range.GetSpellingSuggestions

For Each

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

Dim strWord As String: strWord = 
Dim ssnGetSpellingSuggestion As SpellingSuggestion
For Each ssnGetSpellingSuggestion In GetSpellingSuggestions(Word:=strWord)
	
Next ssnGetSpellingSuggestion

Name

Gibt den Namen des angegebenen Objekts zurück.

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

Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen SpellingSuggestion-Objekts darstellt.

Dim objParent As Object
Set objParent = GetSpellingSuggestions(1).Parent

SpellingSuggestions.Count

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Rechtschreibvorschläge in der Auflistung darstellt.

Dim lngCount As Long
lngCount = GetSpellingSuggestions.Count

SpellingSuggestions.Item

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

Syntax : expression.Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

Dim ssn As SpellingSuggestion
Set ssn = GetSpellingSuggestions(Index:=1)

SpellingSuggestions.Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen SpellingSuggestions-Objekts darstellt.

Dim objParent As Object
Set objParent = GetSpellingSuggestions.Parent

SpellingSuggestions.SpellingErrorType

Gibt die Art des Rechtschreibfehlers zurück.

Möglichen Werte sind wdSpellingCapitalization - Fehler bei der Großschreibung, wdSpellingCorrect - Die Rechtschreibung ist korrekt, wdSpellingNotInDictionary - Das Wort ist im angegebenen Wörterbuch nicht enthalten.

Verwenden Sie die GetSpellingSuggestions-Methode, um eine Auflistung von Wörtern zurückzugeben, die als orthographisch richtiger Ersatz vorgeschlagen werden.

Set suggs = ActiveDocument.Content.GetSpellingSuggestions 
If suggs.SpellingErrorType = wdSpellingNotInDictionary Then 
 StatusBar = "Unknown word" 
End If