Application.SynonymInfo (Word)
Returns a SynonymInfo object that contains information from the thesaurus on synonyms, antonyms, or related words and expressions for the specified word or phrase.
SynonymInfo (Word, LanguageID)
Alist = SynonymInfo(Word:="big", _
LanguageID:=wdEnglishUS).AntonymList
For i = 1 To UBound(Alist)
Msgbox Alist(i)
Next i
Arguments
The following argument is required
Word (String) - The specified word or phrase.
Optional arguments
The following argument is optional
LanguageID (WdLanguageID) - The language used for the thesaurus. Can be one of the WdLanguageID constants (although some of the constants may not be available to you, depending on the language support (U.S. English, for example) that you have selected or installed).
Here you can find possible values for