WORD接受修订，并修改修订后文字的颜色
在 Word 中，接受修订之后默认会采用正文的默认字体格式，不会保留修订时设置的颜色，比如“插入内容是蓝色字体”的设置会被清除。
如果你想要做到：
✅ 接受所有修订后仍然让“原插入的文字”变为蓝色字体保留下来
你只能通过一些手动或自动的方法实现，最可行的办法是使用 VBA 脚本 来实现：
✅ 方法：使用 VBA 实现“接受修订 + 改变插入文字为蓝色”
下面是一个 Word 的 VBA 脚本，它会：
- 找出所有“插入”的修订；
- 将这些插入的内容字体设为蓝色；
- 接受所有修订。
📌 操作步骤：
第一步：打开 Word 的 VBA 编辑器
- 按下快捷键
Alt + F11打开 VBA 编辑器。 - 在左侧项目树中选中当前文档，点击菜单栏 插入 > 模块。
- 粘贴以下代码进去：
Sub AcceptRevisionsAndColorInsertedTextBlue()Dim rev As RevisionDim rng As Range' 遍历所有修订For Each rev In ActiveDocument.RevisionsIf rev.Type = wdRevisionInsert ThenSet rng = rev.Rangerng.Font.Color = wdColorBlue ' 设置插入内容为蓝色End IfNext rev' 接受所有修订ActiveDocument.AcceptAllRevisions
End Sub
第二步：运行宏
-
按
F5或点击运行按钮 ▶️。 -
回到 Word 文档，你会看到：
- 所有 插入的修订文字已变为蓝色；
- 所有修订已被接受。
✅ 效果总结
- 插入的内容：变成蓝色文字并保留在文档中；
- 删除的内容：直接被删除，不保留；
- 所有修订：被清除，文档干净整洁。