Range.SynonymInfo (Word)

Gibt ein SynonymInfo -Objekt zurück, das Informationen aus dem Thesaurus zu Synonymen, Antonyme oder verwandten Wörtern und Ausdrücken für den Inhalt eines Bereichs enthält.

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