怎么打开word的突出显示修订 (30分)

我想实现编辑，并保留修改痕迹，怎么打开word的突出显示修订，急

用程序？我倒知道手动的办法。[]

居然没人回答，我已经有答案了，怎么办呢？

'在屏幕上突出显示修订
ActiveDocument.ShowRevisions = True

'进入修订状态。
ActiveDocument.TrackRevisions = True

'退出修订状态，进入正常状态
ActiveDocument.TrackRevisions = False

'保护文档，只能阅看
ActiveDocument.Protect Type:=wdAllowOnlyComments

'虽然能够实现只能修订，可以使用，启动的时候先保存，然后再设置为只能修订状态
Doc.Protect Type:=wdAllowOnlyRevisions

'取消对文档保护
Doc.Unprotect