Word VBA教程:SynonymInfo属性

应用于 Range对象的 SynonymInfo属性。

该属性返回一个SynonymInfo对象,该对象包含同义词库中有关指定单词或短语的同义词、反义词或相关单词和表达方式的信息。

expression.SynonymInfo

expression   必需。该表达式返回一个Range对象。

应用于 Application 和 Global对象的 SynonymInfo属性。

该属性返回一个SynonymInfo对象,该对象包含同义词库中有关指定单词或短语的同义词、反义词或相关单词和表达方式的信息。

expression.SynonymInfo(Word, LanguageID)

expression   必需。该表达式返回上述对象之一。

Word  String 类型,必需。指定的单词或短语。

LanguageID  Variant 类型,可选。用于同义词库的语言。可以是下列WdLanguageID 常量之一。(但是根据您选择或安装的语言支持不同(例如美国英语),列出的部分常量可能无法使用)

WdLanguageID 可以是下列 WdLanguageID 常量之一:
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

VBA示例

当应用于 Range对象时。

本示例返回所选内容的第一个含义的同义词列表。


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

当应用于 Application 和 Global对象时。

本示例返回美国英语中单词“big”的反义词列表。


Alist = SynonymInfo(Word:="big", _
    LanguageID:=wdEnglishUS).AntonymList
For i = 1 To UBound(Alist)
    Msgbox Alist(i)
Next i

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号