SynonymList 属性

       

该属性返回单词或短语某一指定含义的同义词列表。该列表以字符串数组的形式返回。Variant 类型,只读。

expression.SynonymList(Meaning)

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

Meaning   Variant 类型,必需。在包含可能含义的数组中以字符串或索引序号的形式表示的含义。

示例

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

Slist = SynonymInfo(Word:="big", LanguageID:=wdEnglishUS) _
    .SynonymList(Meaning:="generous")
For i = 1 To UBound(Slist)
    Msgbox Slist(i)
Next i

本示例返回所选单词或短语的第二个含义的同义词列表,并显示在“Visual Basic 编辑器”的“立即”窗口中。如果所选单词或短语没有第二个含义或没有其同义词,则在消息框中进行说明。

Set mySi = Selection.Range.SynonymInfo
If mySi.MeaningCount >= 2 Then
    synList = mySi.SynonymList(Meaning:=2)
        For i = 1 To UBound(synList)
            Debug.Print synList(i)
        Next i
Else
    MsgBox "There is no second meaning for this word or phrase."
End If