MeaningList Property

Microsoft Word Visual Basic

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