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

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

我有一个大约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 显示已选中下划线: 在此处输入图片描述

答案1

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

相关内容