Word Property [Word 2007 Developer Reference]

Switch View :
Classic
Lightweight
ScriptFree
SynonymInfo.Word Property
Returns the word or phrase that was looked up by the thesaurus. Read-only String.

Syntax

expression.Word

expression   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.

Visual Basic for Applications
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 is not, the example returns a list of synonyms for the first meaning of the word or phrase.

Visual Basic for Applications
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

See Also