MeaningList 属性

       

返回单词或短语的含义列表。列表以字符串数组形式返回。Variant 类型,只读。

expression.MeaningList

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

说明

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

示例

本示例检查是否找到 MyDoc.doc 文档中的第三个单词的含义。如果已找到,则将在一组消息框中加以显示。

Set mySyn = Documents("MyDoc.doc").Words(3).SynonymInfo
If mySyn.MeaningCount <> 0 Then
    myList = mySyn.MeaningList
    For i = 1 To UBound(myList)
        Msgbox myList(i)
    Next i
Else
    Msgbox "There were no meanings found."
End If