在本文中，我们将重点介绍两种快速批量更改 Word 文档中多条下划线颜色的方法。
默认情况下，Word 中的下划线颜色设置为“自动”。 但有时可能会很单调。 所以为了使文档中的颜色设置多样化，也为了突出重要的内容，改变下划线的颜色是一个不错的选择。
在创建下划线之前更改下划线颜色很容易。 因此，在接下来的内容中，我们将重点放在修改现有下划线的颜色上。
方法 1：利用“高级查找”功能
首先，您需要找到当前文档中所有带下划线的地方。为此，您可以参考我们之前的文章： 在 Word 文档中搜索带下划线文本的 2 种快速方法
找到并选择所有下划线后，您将执行以下步骤：
- 您只需单击“主页”选项卡下下划线图标后面的倒三角按钮。
- 然后在“下划线颜色”的扩展菜单中选择你喜欢的颜色。
这是我们的视频演示：
方法二：运行Word宏
Word 宏是一个如此神奇的工具。 我们不仅可以用它来搜索所有的下划线，还可以改变它们的颜色。 而且这两个过程都可以在一个宏中完成。
- 首先，激活“开发人员”选项卡并单击它。
- 然后单击“代码”组中的“Visual Basic”。
- 接下来点击“正常”。
- 然后单击“插入”选项卡。
- 然后在菜单上选择“模块”。
- 双击新模块打开编辑空间。
- 现在将下面的代码粘贴到那里：
Sub ChangeUnderlineColor()
Dim objDoc As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objRange = objDoc.Range
objRange.Find.ClearFormatting
With objRange.Find
.Font.Underline = wdUnderlineSingle
.text = ""
.Replacement.text = ""
.Replacement.Font.UnderlineColor = wdColorBlue
.Execute Format:=True, Replace:=wdReplaceAll
End With
End Sub
- 最后但并非最不重要的一点是，单击“运行”按钮。
笔记:
- 首先，代码行“.Font.Underline = wdUnderlineSingle”意味着这个宏只找到单下划线。 您可以将“wdUnderlineSingle”更改为“wdUnderlineDouble”、“wdUnderlineThick”等。更多下划线常量，您可以访问此链接： https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
- 其次，代码行“.Replacement.Font.UnderlineColor = wdColorBlue”表示宏会将下划线颜色更改为蓝色。 更多颜色常量，您可以访问： https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
检索受损的 Word 数据
如今，Word 数据丢失的可能性很高。例如，Word 中最常见的错误就是屏幕冻结。当然，您可以选择重启程序。有时，您正在编辑的文档会自动保存。然而，我们不能排除或承受文档完全或部分丢失的可能性。因此，我们必须考虑数据恢复的方法。说到这里，专业的数据恢复专家可以提供帮助。 字修 工具是其成功的关键。
作者简介：
Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术的世界领先者，包括修复工具 损坏的 xls 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com