该属性返回单词或短语某一指定含义的同义词列表。该列表以字符串数组的形式返回。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