在 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 文档,你会看到:
- 所有 插入的修订文字已变为蓝色;
- 所有修订已被接受。
✅ 效果总结
- 插入的内容:变成蓝色文字并保留在文档中;
- 删除的内容:直接被删除,不保留;
- 所有修订:被清除,文档干净整洁。