Application.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 a palavra ou frase especificada.
SynonymInfo (Word, LanguageID)
Alist = SynonymInfo(Word:="big", _
LanguageID:=wdEnglishUS).AntonymList
For i = 1 To UBound(Alist)
Msgbox Alist(i)
Next i
Arguments
O seguinte argumento é necessário
Word (String) - A palavra ou a frase especificada.
Optional arguments
The following argument is optional
LanguageID (WdLanguageID) - O idioma usado para o dicionário de sinônimos. Pode ser uma das seguintes constantes WdLanguageID (embora algumas das constantes podem não estar disponíveis para você, dependendo do suporte a idioma (inglês americano, por exemplo) que você selecionou ou instalou).
Aqui você pode encontrar os valores possíveis para