【Word_笔记】Word的修订模式内容改为颜色标记

需求如下：请把修改后的部分直接在原文标出来，不要采用修订模式

步骤1：打开需要转换的word后，同时按住alt和F11

进入（Microsoft Visual Basic for Appliations）

步骤2：插入 ---- 模块

步骤3：输入以下代码，点击运行

Sub HighlightInsertedText()
Dim r As Revision
For Each r In ActiveDocument.Revisions
If r.Type = wdRevisionInsert Then
r.Range.Font.Color = wdColorBlue
'r.Range.HighlightColorIndex = wdYellow
End If
Next r
En