MeaningCount Property Example

This example checks to see whether any meanings were found for the selection. If any were found, the list of meanings is displayed in the Immediate window in the Visual Basic Editor.

Set mySynInfo = Selection.Range.SynonymInfo
If mySynInfo.MeaningCount <> 0 Then
    myList = mySynInfo.MeaningList
    For i = 1 To Ubound(myList)
        Debug.Print myList(i)
    Next i
Else
    Msgbox "There were no meanings found."
End If