Range.SynonymInfo (Word)

Devuelve un objeto SynonymInfo que contiene información del Diccionario de sinónimos acerca de sinónimos, antónimos o palabras o expresiones relacionadas del contenido de un intervalo.

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