MeaningList Property 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