Range.SynonymInfo (Word)

Renvoie un objet SynonymInfo qui contient des informations du dictionnaire des synonymes sur les synonymes, les antonymes ou les mots et les expressions apparentés au contenu d’une plage.

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