Question

多种对象 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