Share via

SynonymInfo.Word Property

  • Article
Word Developer Reference

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 " &amp; mySynObj.<strong class="bterm">Word</strong> _
        &amp; " is " &amp; 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 " &amp; mySynObj.<strong class="bterm">Word</strong> _
            &amp; " is " &amp; SList(i)
    Next i
End If



End Sub

See Also