Word VBA教程: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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号