清除青绿的文字底色

晨晓之黎

需要写2个命令功能：（有附件）
清除全篇文字底色：选中所有青绿的文字底色清除
清除选区底色：选中选区青绿的文字底色清除

原效果


操作方法


谁能帮忙会写？谢谢！

413191246se

* 楼主：你的要求，一个程序就搞定。请注意：如果不选则全选。

1. Sub aaaa_FindRange_清除底色_青绿()
   
2.     Dim r As Range, s As Range, i&, n&
   
3.     With Selection
   
4.         If .Type = wdSelectionIP Then
   
5.             Set r = ActiveDocument.Content
   
6.         Else
   
7.             Set r = .Range
   
8.             Set s = .Range
   
9.             i = 1
   
10.         End If
    
11.     End With
    
12.     With r.Find
    
13.         .ClearFormatting
    
14.         .Text = ""
    
15.         .Font.Shading.BackgroundPatternColor = 16777088
    
16.         .Forward = True
    
17.         .MatchWildcards = True
    
18.         Do While .Execute
    
19.             With .Parent
    
20.                 n = n + 1
    
21.                 .Font.Shading.BackgroundPatternColor = wdColorAutomatic
    
22.                 If i = 1 Then .SetRange Start:=.End, End:=s.End Else .Start = .End
    
23.             End With
    
24.         Loop
    
25.     End With
    
26.     MsgBox "共找到 " & n & " 个！", 0 + 48
    
27. End Sub

复制代码

yian123

直接查找内容里面查找格式底色，然后替换不就好了

晨晓之黎

413191246se 发表于 2021-1-24 20:09
* 楼主：你的要求，一个程序就搞定。请注意：如果不选则全选。

运行结果很完美！速度极快啊！谢谢413191246se大神！

晨晓之黎

yian123 发表于 2021-1-24 23:55
直接查找内容里面查找格式底色，然后替换不就好了

你说的格式底色，我找不到，格式查找里只有突出显示