返回单词或短语的含义列表。列表以字符串数组形式返回。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