Word Property

Applies To

SynonymInfo object.

Description

Returns the word or phrase that was looked up by the thesaurus. Read-only String.

Remarks

The thesaurus will sometimes look up a shortened version of the string or range used to return the SynonymInfo object. The Word property allows you to see the exact string that was used.

See Also

SynonymInfo object.

Example

This example returns a list of synonyms for the first meaning of the third word in the active document.

Set mySynObj = ActiveDocument.Words(3).SynonymInfo
SList = mySynObj.SynonymList(1)
For i = 1 To UBound(SList)
    Msgbox "A synonym for " & mySynObj.Word & " is " & SList(i)
Next i

This example checks to make sure that the word or phrase that was looked up isn't empty. If it's not, the example returns a list of synonyms for the first meaning of the word or phrase.

Set mySynObj = Selection.Range.SynonymInfo
If mySynObj.Word = "" Then
    Msgbox "Please select a word or phrase"
Else
    SList = mySynObj.SynonymList(1)
    For i = 1 To UBound(SList)
        Msgbox "A synonym for " & mySynObj.Word & " is " & SList(i)
    Next i
End If