Word VBA教程:PartOfSpeechList属性

返回某一单词或短语在同义词库中查找到的对应于其含义的词类的列表。此列表以整数数组形式返回。Variant 类型,只读。

expression.PartOfSpeechList

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

说明

词类列表以数组形式返回,该数组由下列 WdPartOfSpeech 常量组成:wdAdjective、wdAdverb、wdConjunction、wdIdiom、wdInterjection、wdNoun、wdOther、wdPreposition、wdPronoun 和 wdVerb。该数组的元素将按照MeaningList属性返回的元素顺序进行排列。

VBA示例

本示例检查在同义词库中是否找到有关所选内容的含义。如果有,则在一组信息框中显示这些含义及相应的词类。


Set mySynInfo = Selection.Range.SynonymInfo
If mySynInfo.MeaningCount <> 0 Then
    myList = mySynInfo.MeaningList
    myPos = mySynInfo.PartOfSpeechList
    For i = 1 To UBound(myPos)
        Select Case myPos(i)
            Case wdAdjective
                 pos = "adjective"
            Case wdNoun
                 pos = "noun"
            Case wdAdverb
                 pos = "adverb"
            Case wdVerb
                 pos = "verb"
            Case Else
                 pos = "other"
        End Select
        MsgBox myList(i) & " found as " & pos
    Next i
Else
    MsgBox "There were no meanings found."
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号