Word 属性

该属性返回已在同义词库中进行查找的单词或短语。String 类型，只读。

expression   必需。该表达式返回一个 SynonymInfo 对象。

说明

同义词库有时会查找用于返回 SynonymInfo 对象的字符串或区域的简称。可使用 Word 属性查看所使用的字符串的完整形式。

示例

本示例返回活动文档中第三个单词的第一个含义的同义词列表。

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

本示检查确认要查找的单词或短语是否为空。如果不为空，则返回单词或短语的第一个含义的同义词列表。

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