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