expression.MeaningCount
expression Required. An expression that returns a SystemInfo object.
Remarks
Each meaning represents a unique list of synonyms for the word or phrase.
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 selection. If any were found, the list of meanings is displayed in the Immediate window of 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