RelatedExpressionList Property

expression.RelatedExpressionList

expression    Required. An expression that returns a SynonymInfo object.

Remarks

Typically, there are very few related expressions found in the thesaurus.

Example

This example checks to see whether any related expressions were found for the selection. If so, the meanings are displayed in a series of message boxes. If none were found, this is stated in a message box.

Set synInfo = Selection.Range.SynonymInfo
If synInfo.Found = True Then
    relList = synInfo.RelatedExpressionList
    If UBound(relList) <> 0 Then
        For intCount = 1 To UBound(relList)
            Msgbox relList(intCount)
        Next intCount
    Else
        Msgbox "There were no related expressions found."
    End If
End If