Range.SynonymInfo (Word)

Retorna um objeto SynonymInfo que contém informações do dicionário de sinônimos sobre sinônimos, antônimos ou palavras e expressões relacionadas para o conteúdo de um intervalo.

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