Word VBA教程:Word属性

该属性返回已在同义词库中进行查找的单词或短语。String 类型,只读。

expression.Word

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

说明

同义词库有时会查找用于返回SynonymInfo对象的字符串或区域的简称。可使用 Word属性查看所使用的字符串的完整形式。

VBA示例

本示例返回活动文档中第三个单词的第一个含义的同义词列表。


Sub Syn()
    Dim mySynObj As Object
    Dim SList As Variant
    Dim i As Variant
    Set mySynObj = ActiveDocument.Words(3).SynonymInfo
    SList = mySynObj.SynonymList(1)
    For i = 1 To UBound(SList)
        MsgBox "A synonym for " & mySynObj.Word _
            & " is " & SList(i)
    Next i
End Sub

本示检查确认要查找的单词或短语是否为空。如果不为空,则返回单词或短语的第一个含义的同义词列表。


Sub SelectWord()
    Dim mySynObj As Object
    Dim SList As Variant
    Dim i As Variant
    Set mySynObj = Selection.Range.SynonymInfo
    If mySynObj.Word = "" Then
        MsgBox "Please select a word or phrase"
    Else
        SList = mySynObj.SynonymList(1)
        For i = 1 To UBound(SList)
            MsgBox "A synonym for " & mySynObj.Word _
                & " is " & SList(i)
        Next i
    End If
End Sub

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号