本示例对活动文档进行设置,以便能标记对该文档的修改,并在屏幕上显示修订标记。

With ActiveDocument
    .TrackRevisions = True
    .ShowRevisions = True
End With