返回介绍

PartOfSpeechList 属性

发布于 2019-09-29 10:15:38 字数 1023 浏览 1163 评论 0 收藏 0

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

expression.PartOfSpeechList

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

说明

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

示例

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

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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文