SynonymInfo 对象

         
多种对象
SynonymInfo

代表关于指定区域或给定字符串的同义词、反义词、相关单词或相关表达形式的信息。

使用 SynonymInfo 对象

SynonymInfo 属性可返回一个 SynonymInfo 对象。SynonymInfo 对象既可从某一区域也可从 Word 中返回。如果从 Word 中返回,则要指定待查找的单词或短语以及校对语言的标识号;如果是从区域返回,则 Word 将指定区域作为查找内容。下例从 Word 返回 SynonymInfo 对象。

temp = SynonymInfo(Word:="meant", LanguageID:=wdEnglishUS).Found

下例从选定区域返回 SynonymInfo 对象。

temp = Selection.Range.SynonymInfo.Found

如果在同义词库中找到指定区域或 Word 的任何信息,则以上示例中所用的 Found 属性返回 True。注意,该属性不仅在找到同义词时,而且在找到相关单词、相关表达方式或反义词时也返回 True

SynonymInfo 对象的许多属性都可返回一个包含字符串数组的 Variant 类型值。当用到这些属性时,可将返回的数组赋给一个变量,再对该变量进行索引就能查看数组中的各元素。在下例中,将 Slist 赋值为选定单词或短语第一个含义的同义词列表,用 UBound 函数找到该数组的上界,然后将每个元素显示在消息框中。

Slist = Selection.Range.SynonymInfo.SynonymList(1)
For i = 1 To UBound(Slist)
    Msgbox Slist(i)
Next i

通过检查 MeaningCount 属性的值可避免代码中潜在的错误。下例返回所选内容中的单词或短语第二个含义的同义词列表,并将这些同义词显示在“邻近”窗格中。

Set synInfo = Selection.Range.SynonymInfo
If synInfo.MeaningCount >= 2 Then
    synList = synInfo.SynonymList(2)
    For i = 1 To UBound(synList)
        Debug.Print synList(i)
    Next i
Else
    MsgBox "There is no second meaning for the selection."
End If