RelatedExpressionList Property

Applies To

SynonymInfo object.

Description

Returns a list of expressions related to the specified word or phrase. The list is returned as an array of strings. Read-only Variant.

Remarks

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

See Also

RelatedWordList property.

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 mySinfo = Selection.Range.SynonymInfo
If mySinfo.Found = True Then
    myRelList = mysInfo.RelatedExpressionList
    If UBound(myRelList) <> 0 Then
        For i = 1 To UBound(myRelList)
            Msgbox myRelList(i)
        Next i
    Else
        Msgbox "There were no related expressions found."
    End If
End If