Application.SynonymInfo procedure builder

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 - 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)