数字突出显示

晨晓之黎

这个是我录制的宏，数字用（固定的黄色）突出显示，方便核对数字，核对完后怎么把黄色突出显示取消啊？因为还有标红突出显示需要保留，不能取消。

1. Sub 数字突出显示()
   
2. '
   
3. ' 数字突出显示 宏
   
4. '
   
5. '
   
6.     Selection.Find.ClearFormatting
   
7.     Selection.Find.Replacement.ClearFormatting
   
8.     Selection.Find.Replacement.Highlight = True
   
9.     With Selection.Find
   
10.         .Text = "^#"
    
11.         .Replacement.Text = ""
    
12.         .Forward = True
    
13.         .Wrap = wdFindContinue
    
14.         .Format = True
    
15.         .MatchCase = False
    
16.         .MatchWholeWord = False
    
17.         .MatchByte = True
    
18.         .MatchWildcards = False
    
19.         .MatchSoundsLike = False
    
20.         .MatchAllWordForms = False
    
21.     End With
    
22.     Selection.Find.Execute Replace:=wdReplaceAll
    
23. End Sub

复制代码

413191246se

1. Sub Cancel_Or_Set_Highlight_Yellow()
   
2.     Dim i&
   
3.     With ActiveDocument.Content.Find
   
4.         .Highlight = True
   
5.         Do While .Execute
   
6.             With .Parent
   
7.                 If .HighlightColorIndex = 7 Then i = 1: Exit Do
   
8.                 .Start = .End
   
9.             End With
   
10.         Loop
    
11.     End With
    
12.     If i = 1 Then
    
13.         With ActiveDocument.Content.Find
    
14.             .Highlight = True
    
15.             Do While .Execute
    
16.                 With .Parent
    
17.                     If .HighlightColorIndex = 7 Then .HighlightColorIndex = wdNoHighlight
    
18.                     .Start = .End
    
19.                 End With
    
20.             Loop
    
21.         End With
    
22.     Else
    
23.         With ActiveDocument.Content.Find
    
24.             .Text = "[0-9.]{1,}"
    
25.             .MatchWildcards = True
    
26.             Do While .Execute
    
27.                 With .Parent
    
28.                     .HighlightColorIndex = 7
    
29.                     .Start = .End
    
30.                 End With
    
31.             Loop
    
32.         End With
    
33.     End If
    
34. End Sub

复制代码

晨晓之黎

413191246se 发表于 2021-1-5 02:06

解决了！数字小数点我去掉的，谢谢大神！

413191246se

楼主，它是一个切换宏。当有黄色突出显示时，取消它；否则，设置它。可以反复执行它来取消或设置黄色突出显示。去掉小数点可找不到小数了！

晨晓之黎

413191246se 发表于 2021-1-5 16:51
楼主，它是一个切换宏。当有黄色突出显示时，取消它；否则，设置它。可以反复执行它来取消或设置黄色突出显 ...

切换宏不错！好方便！小数点和句点有冲突看花了，所以我去掉小数点，数字还在，这个没事。

413191246se

在自定义中将该宏设置为热键 F8（或 F7/F3等）使用起来会非常方便的。

晨晓之黎

413191246se 发表于 2021-1-5 21:53
在自定义中将该宏设置为热键 F8（或 F7/F3等）使用起来会非常方便的。

26个字母的快捷键完全不够用，数字也全部用了！只好放快速访问工具栏

晨晓之黎

413191246se 发表于 2021-1-5 21:53
在自定义中将该宏设置为热键 F8（或 F7/F3等）使用起来会非常方便的。

今天160多页，用了突出显示，运行时出现未响应，最后就好了。有没有办法提高速度？

413191246se

我的建议就是，能否在数字下面加下划线，这样可能会轻松一些；如果要取消下划线，只须：全选/点击下划线按钮一下（或两下）取消它即可。

1. Sub Num_Underline()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "[0-9.０-９]{1,}"
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             .Parent.Underline = wdUnderlineSingle
   
9.         Loop
   
10.     End With
    
11. End Sub

复制代码

晨晓之黎

413191246se 发表于 2021-1-6 21:55
我的建议就是，能否在数字下面加下划线，这样可能会轻松一些；如果要取消下划线，只须：全选/点击下划线按 ...

数字自带有下划线有冲突，取消就没了还要设置下划线，麻烦