通过

Word) (Comment.Scope 属性

  • 项目

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

语法

expression。 Scope

表达 返回“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

另请参阅

注释对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。