Word Property

expression.Word

expression    Required. An expression that returns a SynonymInfo object.

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.

Example

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

Sub Syn()
    Dim mySynObj As Object
    Dim SList As Variant
    Dim i As Variant

    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
End Sub
		

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.

Sub SelectWord()
    Dim mySynObj As Object
    Dim SList As Variant
    Dim i As Variant

    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
End Sub