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