修复整个文档中的 Word 下划线样式

Question

我有一个大约100页的Word文档。其中有很多单词被划了下划线。

但是，当我选择该单词时，下划线格式图标没有突出显示/亮起，显示它带有下划线。很奇怪。

因此，我检查了立即窗口，?Selection.Font.Underline结果返回了9999999。做使下划线图标亮起返回1。

9999999我怎样才能快速更改所有下划线样式1？

我尝试用“Underline”查找/替换并用“Underline”替换，但是虽然成功找到999999并且1替换没有任何作用。

我甚至对此进行了宏操作，但无济于事Selection.Find.Replacement.Font.Underline = 1。

目前，我循环遍历每个段落，如果为para.Range.Font.Underline = 999999真，则循环遍历每个字符，并在字符所在位置999999使其成为1。

所以我的问题是如何才能正确/更快地完成此操作？此外，9999999首先是什么原因造成的？

编辑：这是我目前的代码

Sub fixUline()
Dim doc     As Document
Set doc = ActiveDocument

Application.ScreenUpdating = False

Dim para    As Paragraph
For Each para In ActiveDocument.Paragraphs
    If para.Range.Font.Underline = 9999999 Then
     '   para.Range.Select
        For i = 1 To para.Range.Characters.Count
            If para.Range.Characters(i).Font.Underline = 9999999 Then
               ' para.Range.Characters(i).Select
                para.Range.Characters(i).Font.Underline = 1
            End If
        Next
    End If                   ' ...Underline = 99999
    Application.ScreenUpdating = True
Next para
MsgBox ("Done!")
End Sub

编辑：我还发现这次讨论，但运行列出的宏会在以下行引发编译类型不匹配错误For Each oChr In ActiveDocument.Paragraphs(para)

编辑：这里有两张截图。第一张是带下划线的单词，但请注意 Word 似乎并不这么认为：

第二条也带下划线，但 Word 显示已选中下划线：

Answer 1

如果我理解正确，您是想取消文档中所有内容的下划线。我认为最好的方法是“全选”（应该是 ctrl + A）并单击下划线按钮（为整个文档添加下划线），然后再次单击它以取消所有内容的下划线。