【返修】Word的修订模式内容改为红色

参考【Word_笔记】Word的修订模式内容改为颜色标记_遍历文档中的所有修订 for each orevision in activedocument.re-CSDN博客

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

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

步骤3：运行

Sub HighlightInsertedText()

Dim r As Revision

For Each r In ActiveDocument.Revisions

If r.Type = wdRevisionInsert Then

r.Range.Font.Color = wdColorRed

'r.Range.HighlightColorIndex = wdYellow

End If

Next r

End Sub