通过

SynonymInfo.MeaningList Property

  • 项目
Word Developer Reference

Returns the list of meanings for the word or phrase. The list is returned as an array of strings. Read-only Variant.

Syntax

expression.MeaningList

expression   An expression that returns a SynonymInfo object.

Remarks

The lists of related words, related expressions, and antonyms aren't counted as entries in the list of meanings.

Example

This example checks to see whether any meanings were found for the third word in MyDoc.doc. If so, the meanings are displayed in a series of message boxes.

Visual Basic for Applications 
  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

See Also