expression.MeaningList
expression Required. An expression that returns a SystemInfo 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.
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