MeaningCount 属性

返回在同义词库中找到的单词或短语的含义列表中的条目数。如果未找到含义，则返回 0（零）。Long 类型，只读。

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

说明

单词或短语的每一个含义都代表独特的同义词列表。

相关单词、相关词句和反义词不作为含义列表中的条目进行统计。

示例

本示例检测是否找到所选内容的含义。如果找到，则在“Visual Basic 编辑器”的“立即”窗口中显示含义列表。

Set mySynInfo = Selection.Range.SynonymInfo
If mySynInfo.MeaningCount <> 0 Then
    myList = mySynInfo.MeaningList
    For i = 1 To Ubound(myList)
        Debug.Print myList(i)
    Next i
Else
    Msgbox "There were no meanings found."
End If