本示例对活动文档进行设置,以便能标记对该文档的修改,并在屏幕上显示修订标记。
With ActiveDocument
.TrackRevisions = True
.ShowRevisions = True
End With