WORD接受修订，并修改修订后文字的颜色

在 Word 中，接受修订之后默认会采用正文的默认字体格式，不会保留修订时设置的颜色，比如“插入内容是蓝色字体”的设置会被清除。
如果你想要做到：

✅ 接受所有修订后仍然让“原插入的文字”变为蓝色字体保留下来

你只能通过一些手动或自动的方法实现，最可行的办法是使用 VBA 脚本 来实现：

---

✅ 方法：使用 VBA 实现“接受修订 + 改变插入文字为蓝色”

下面是一个 Word 的 VBA 脚本，它会：

1. 找出所有“插入”的修订；
2. 将这些插入的内容字体设为蓝色；
3. 接受所有修订。

---

📌 操作步骤：

第一步：打开 Word 的 VBA 编辑器

1. 按下快捷键 Alt + F11 打开 VBA 编辑器。
2. 在左侧项目树中选中当前文档，点击菜单栏 插入 > 模块。
3. 粘贴以下代码进去：

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

第二步：运行宏

1. 按 F5 或点击运行按钮 ▶️。

2. 回到 Word 文档，你会看到：

   • 所有 插入的修订文字已变为蓝色；
   • 所有修订已被接受。

---

✅ 效果总结

• 插入的内容：变成蓝色文字并保留在文档中；
• 删除的内容：直接被删除，不保留；
• 所有修订：被清除，文档干净整洁。

---