通过

SynonymInfo 对象 (Word)

  • 项目

代表有关指定范围或给定字符串中的同义词、反义词、相关词或相关表达式的信息。

备注

使用 SynonymInfo 属性返回一个 SynonymInfo 对象。 可从一系列或 Microsoft Office Word 返回 SynonymInfo 对象。 如果从 Word 返回，则指定查找的字词或短语以及校对语言 id。 如果从某一区域返回，则 Word 使用指定的区域作为查找的字词。 下面的示例从 Word 返回一个 SynonymInfo 对象。

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

下面的示例从某一区域返回一个 SynonymInfo 对象。

temp = Selection.Range.SynonymInfo.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

另请参阅

Word 对象模型参考

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。