RelatedWordList Property Example

This example checks to see whether any related words were found for the third word in the active document. If so, the meanings are displayed in a series of message boxes. If there are no related words found, this is stated in a message box.

Set mySynon = ActiveDocument.Words(3).SynonymInfo
If mySynon.Found = True Then
    myWdList = mySynon.RelatedWordList
    If UBound(myWdList) <> 0 Then
        For i = 1 To UBound(myWdList)
            Msgbox myWdList(i)
        Next i
    Else
        Msgbox "There were no related words found."
    End If
End If