返回与指定单词或短语相关的词句列表。该列表以字符串数组形式返回。Variant 类型,只读。
expression.RelatedExpressionList
expression 必需。该表达式返回一个 SynonymInfo 对象。
通常只能在同义词库中找到很少的相关词句。
本示例检查是否找到了与所选内容的相关词句。如果有,则在一组信息框中显示其含义。如果没有找到,则在信息框中加以说明。
Set synInfo = Selection.Range.SynonymInfo
If synInfo.Found = True Then
relList = synInfo.RelatedExpressionList
If UBound(relList) <> 0 Then
For intCount = 1 To UBound(relList)
Msgbox relList(intCount)
Next intCount
Else
Msgbox "There were no related expressions found."
End If
End If