211209-word利用VBA宏命令投稿将修改处标蓝色

文章修改稿中如何将修订的地方批量自动标红

利用Word自带的VBA功能就可以实现，在word审阅模式下修订的地方批量自动标红，具体步骤如下：

1. 在Word下利用比较功能，将2个版本的论文修改的地方识别出来（审阅模式），打开比较后的文档，作为需要标定的目标文件。

2. 键入ALT+F11，打开Word的VBA环境

3. 点击主菜单下的工具栏第二个工具-插入模块-模块，进入代码界面

   在出现的代码窗口中，粘贴代码：

Sub 更改修订插入内容的颜色()
Dim n As Integer
For n = 1 To 5000
    Selection.NextRevision (True)
    Selection.Font.Color = wdColorBlue
Next n
End Sub

4. 把键盘光标放到入口函数中任意一行代码上；
   按F5运行程序(循环5000次需要一定的时间，需要等待下)；

5. 点击主菜单下的第一个工具WORD，回到word界面；
   接收所有更改并停止修订，就可以看到所有的修改的地方都标记为红色了。