本示例显示活动文档第一节中修订的总数。

MsgBox ActiveDocument.Sections(1).Range.Revisions.Count