Scope 属性

返回一个 Range 对象，该对象代表指定备注所标记的文本范围。

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

示例

本示例显示与选定内容中第一条备注相关联的文本。

If Selection.Comments.Count >= 1 Then
    Set myRange = Selection.Comments(1).Scope
    MsgBox myRange.Text
End If

本示例复制与活动文档中最后一条备注相关联的文本。

total = ActiveDocument.Comments.Count
If total >= 1 Then ActiveDocument.Comments(total).Scope.Copy