Word VBA教程:SynonymList属性

该属性返回单词或短语某一指定含义的同义词列表。该列表以字符串数组的形式返回。Variant 类型,只读。

expression.SynonymList(Meaning)

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

Meaning   Variant 类型,必需。在包含可能含义的数组中以字符串或索引序号的形式表示的含义。

VBA示例

本示例返回美国英语中单词“big”的含义“generous”的同义词列表。


Slist = SynonymInfo(Word:="big", LanguageID:=wdEnglishUS) _
    .SynonymList(Meaning:="generous")
For i = 1 To UBound(Slist)
    Msgbox Slist(i)
Next i

本示例返回所选单词或短语的第二个含义的同义词列表,并显示在“Visual Basic 编辑器”的“立即”窗口中。如果所选单词或短语没有第二个含义或没有其同义词,则在消息框中进行说明。


Set mySi = Selection.Range.SynonymInfo
If mySi.MeaningCount >= 2 Then
    synList = mySi.SynonymList(Meaning:=2)
        For i = 1 To UBound(synList)
            Debug.Print synList(i)
        Next i
Else
    MsgBox "There is no second meaning for this word or phrase."
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号