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