SynonymInfo-Objekt (Word)

Stellt die Informationen über Synonyme, Antonyme, ähnliche Begriffe oder ähnliche Ausdrücke für den angegebenen Bereich oder eine bestimmte Zeichenfolge dar.

Hinweise

Mit der SynonymInfo-Eigenschaft geben Sie das SynonymInfo-Objekt zurück. Das SynonymInfo-Objekt kann entweder aus einem Bereich oder aus Microsoft Office Word zurückgegeben werden. Wird es von Word zurückgegeben, bestimmen Sie das nachzuschlagende Wort oder die Phrase und eine Sprach-ID für die Prüfung. Wird es von einem Bereich zurückgegeben, wird der angegebene Bereich als das nachzuschlagende Wort von Word verwendet. Im folgenden Beispiel wird ein SynonymInfo-Objekt von Word zurückgegeben.

temp = SynonymInfo(Word:="meant", LanguageID:=wdEnglishUS).Found

Im folgenden Beispiel wird das SynonymInfo-Objekt von einem Bereich zurückgegeben.

temp = Selection.Range.SynonymInfo.Found

Die in den vorangegangenen Beispielen verwendete Found-Eigenschaft gibt True zurück, wenn im Thesaurus Informationen für den angegebenen Bereich oder für Word gefunden werden. Beachten Sie dabei jedoch, dass diese Eigenschaft nicht nur bei Synonymen True zurückgibt, sondern auch beim Auffinden von ähnlichen Begriffen, ähnlichen Ausdrücken und Antonymen.

Viele der Eigenschaften des SynonymInfo-Objekts geben einen Variant-Wert zurück, der ein Array von Zeichenfolgen enthält. Wenn Sie mit diesen Eigenschaften arbeiten, können Sie das zurückgegebene Array einer Variablen zuweisen und dann die Variable indizieren, um die Elemente im Array anzuzeigen. Im folgenden Beispiel wird Slist die Synonymliste für die erste Bedeutung des ausgewählten Wortes oder Ausdrucks zugewiesen. Die UBund-Funktion sucht die Obergrenze des Arrays, und dann wird jedes Element in einem Meldungsfeld angezeigt.

Slist = Selection.Range.SynonymInfo.SynonymList(1) 
For i = 1 To UBound(Slist) 
 Msgbox Slist(i) 
Next i

Sie können den Wert der MeaningCount-Eigenschaft überprüfen, um potenzielle Fehler in Ihrem Code zu vermeiden. Im folgenden Beispiel wird eine Liste von Synonymen für die zweite Bedeutung des Worts oder Ausdrucks in der Auswahl zurückgegeben und diese Synonyme im Direktbereich angezeigt.

Set synInfo = Selection.Range.SynonymInfo 
If synInfo.MeaningCount >= 2 Then 
 synList = synInfo.SynonymList(2) 
 For i = 1 To UBound(synList) 
 Debug.Print synList(i) 
 Next i 
Else 
 MsgBox "There is no second meaning for the selection." 
End If

Siehe auch

Referenz zum Word-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.