Freigeben über

SynonymInfo-Objekt (Word)

  • Artikel

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 von 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 Found-Eigenschaft, die in den vorherigen Beispielen verwendet wird, 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 Worts oder Ausdrucks zugewiesen. Die UBound-Funktion sucht die obere Grenze 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 im Code zu verhindern. Das folgende Beispiel gibt eine Liste von Synonymen für die zweite Bedeutung für das Wort oder den Ausdruck in der Auswahl zurück und zeigt diese Synonyme im Direktbereich an.

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.