Returns a SynonymInfo object that contains information from the thesaurus on synonyms, antonyms, or related words and expressions for the specified word or phrase.
expression.SynonymInfo
expression Required. An expression that returns a Range object.
SynonymInfo property as it applies to the Application and Global objects.
Returns a SynonymInfo object that contains information from the thesaurus on synonyms, antonyms, or related words and expressions for the specified word or phrase.
expression.SynonymInfo(Word, LanguageID)
expression Required. An expression that returns one of the above objects.
Word Required String. The specified word or phrase.
LanguageID Optional Variant. The language used for the thesaurus. Can be one of the WdLanguageID constants (although some of the constants listed may not be available to you, depending on the language support (U.S. English, for example) that you’ve selected or installed).
WdLanguageID can be one of these WdLanguageID constants. |
wdAfrikaans |
wdAlbanian |
wdArabic |
wdArabicAlgeria |
wdArabicBahrain |
wdArabicEgypt |
wdArabicIraq |
wdArabicJordan |
wdArabicKuwait |
wdArabicLebanon |
wdArabicLibya |
wdArabicMorocco |
wdArabicOman |
wdArabicQatar |
wdArabicSyria |
wdArabicTunisia |
wdArabicUAE |
wdArabicYemen |
wdArmenian |
wdAssamese |
wdAzeriCyrillic |
wdAzeriLatin |
wdBasque |
wdBelgianDutch |
wdBelgianFrench |
wdBengali |
wdBosniaHerzegovina |
wdBrazilianPortuguese |
wdBulgarian |
wdBurmese |
wdByelorussian |
wdCatalan |
wdChineseHongKong |
wdChineseMacao |
wdChineseSingapore |
wdCroatian |
wdCzech |
wdDanish |
wdDutch |
wdEnglishAUS |
wdEnglishBelize |
wdEnglishCanadian |
wdEnglishCaribbean |
wdEnglishIreland |
wdEnglishJamaica |
wdEnglishNewZealand |
wdEnglishPhilippines |
wdEnglishSouthAfrica |
wdEnglishTrinidad |
wdEnglishUK |
wdEnglishUS |
wdEnglishZimbabwe |
wdEstonian |
wdFaeroese |
wdFarsi |
wdFinnish |
wdFrench |
wdFrenchCameroon |
wdFrenchCanadian |
wdFrenchCotedIvoire |
wdFrenchLuxembourg |
wdFrenchMali |
wdFrenchMonaco |
wdFrenchReunion |
wdFrenchSenegal |
wdFrenchWestIndies |
wdFrenchZaire |
wdFrisianNetherlands |
wdGaelicIreland |
wdGaelicScotland |
wdGalician |
wdGeorgian |
wdGerman |
wdGermanAustria |
wdGermanLiechtenstein |
wdGermanLuxembourg |
wdGreek |
wdGujarati |
wdHebrew |
wdHindi |
wdHungarian |
wdIcelandic |
wdIndonesian |
wdItalian |
wdJapanese |
wdKannada |
wdKashmiri |
wdKazakh |
wdKhmer |
wdKirghiz |
wdKonkani |
wdKorean |
wdLanguageNone |
wdLao |
wdLatvian |
wdLithuanian |
wdLithuanianClassic |
wdMacedonian |
wdMalayalam |
wdMalayBruneiDarussalam |
wdMalaysian |
wdMaltese |
wdManipuri |
wdMarathi |
wdMexicanSpanish |
wdMongolian |
wdNepali |
wdNoProofing |
wdNorwegianBokmol |
wdNorwegianNynorsk |
wdOriya |
wdPolish |
wdPortuguese |
wdPunjabi |
wdRhaetoRomanic |
wdRomanian |
wdRomanianMoldova |
wdRussian |
wdRussianMoldova |
wdSamiLappish |
wdSanskrit |
wdSerbianCyrillic |
wdSerbianLatin |
wdSesotho |
wdSimplifiedChinese |
wdSindhi |
wdSlovak |
wdSlovenian |
wdSorbian |
wdSpanish |
wdSpanishArgentina |
wdSpanishBolivia |
wdSpanishChile |
wdSpanishColombia |
wdSpanishCostaRica |
wdSpanishDominicanRepublic |
wdSpanishEcuador |
wdSpanishElSalvador |
wdSpanishGuatemala |
wdSpanishHonduras |
wdSpanishModernSort |
wdSpanishNicaragua |
wdSpanishPanama |
wdSpanishParaguay |
wdSpanishPeru |
wdSpanishPuertoRico |
wdSpanishUruguay |
wdSpanishVenezuela |
wdSutu |
wdSwahili |
wdSwedish |
wdSwedishFinland |
wdSwissFrench |
wdSwissGerman |
wdSwissItalian |
wdTajik |
wdTamil |
wdTatar |
wdTelugu |
wdThai |
wdTibetan |
wdTraditionalChinese |
wdTsonga |
wdTswana |
wdTurkish |
wdTurkmen |
wdUkrainian |
wdUrdu |
wdUzbekCyrillic |
wdUzbekLatin |
wdVenda |
wdVietnamese |
wdWelsh |
wdXhosa |
wdZulu |
Example
As it applies to the Range object.
This example returns a list of synonyms for the selection's first meaning.
Slist = Selection.Range.SynonymInfo.SynonymList(Meaning:=1)
For i = 1 To UBound(Slist)
Msgbox Slist(i)
Next i
As it applies to the Application and Global objects.
This example returns a list of antonyms for the word "big" in U.S. English.
Alist = SynonymInfo(Word:="big", _
LanguageID:=wdEnglishUS).AntonymList
For i = 1 To UBound(Alist)
Msgbox Alist(i)
Next i