论文修改返回修改稿时，编辑总会要求把修改的地方标出来。有的时候修改了很多，最后提交修改稿时如何找到并标记修订的地方就有些犯难了，难以一一标出。有时是用Word的比较功能，但导出的文档都保留了修订的痕迹，版面看上比较乱。很多年前也用过Beyond Compare，BC可以直接将改动的地方标红，最近在尝试使用BC时，发现这个功能好像没有了，只能导出txt文件，离解决问题就很远了。

      于是求助万能的百度，果然只有提不出的问题，没有解决不了的问题。利用Word自带的VBA功能就可以实现，在word审阅模式下修订的地方批量自动标红，具体步骤如下：

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

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

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

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

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

5. 把键盘光标放到入口函数中任意一行代码上；

6. 按F5运行程序-循环5000次需要一定的时间，需要等待下；

7. 点击主菜单下的第一个工具WORD，回到word界面；

8. 接收所有更改并停止修订，就可以看到所有的修改的地方都标记为红色了。

    以上关于VBA的具体实现源码都来源于网络，结合自己的实践做了一些细小的补充，记录下来组里以备后来之用。

PS：2020文章攒了几篇，但被拒的概率有点高，也很久没有静下心来学这些小技术了。

        道阻且长，行则将至。