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