word审阅模式下修订的地方批量自动变红

word 审阅模式下修订的地方批量自动变红
——可用于文章编辑完成后，给出带标识的最终版文档（不是含有修改详细记录的审阅稿）！

步骤如下：
1、在Word中打开你需要处理的doc文档；
2、键入ALT+F11；
3、左边的工程里面有个“Normal”，展开它后有个“模块”节点；
4、在这个“模块”节点上点鼠标右键，选择“插入-模块”，这样右边就会出现代码窗口；
5、在出现的VBA代码窗口中，粘贴下面的代码；
6、把键盘光标放到入口函数中任意一行代码上；
7、键入F5运行；
8、切换回doc文档窗口看效果。
----------------------------------
Sub 更改修订插入内容的颜色()
Dim n As Integer
For n = 1 To 5000
Selection.NextRevision (True)
Selection.Font.Color = wdColorRed
Next n
End Sub
----------------------------------