本示例显示第一个批注和第二个批注的内容

Set Range1 = ActiveDocument.Comments(1).Range
MsgBox "第一个的批注的内容: " & Range1
Set Range2 = ActiveDocument.Comments(1).Next.Range
MsgBox "第二个的批注的内容: " & Range2