word怎样只替换括弧里字体颜色

SCWYZJ

求助：Word怎样只替换括弧里的字体颜色，括弧不变（见附件）.麻烦老师帮我看看，谢谢！

413191246se

略。。。。

SCWYZJ

413191246se 发表于 2020-12-27 13:05
* 不用 VBA 将分两步完成，我已会了，不想说，略；请 楼主 用 VBA 吧！

413191246se 老师你的代码只能替换英文括号的，不能替换中文括号的，我要的是全部都适用！谢谢

413191246se

* Win10-64之过也！当然我也疏忽了！这回试试：

1. Sub Find_Set_Red()
   
2.     With Selection
   
3.         .HomeKey 6
   
4.         With .Find
   
5.             .ClearFormatting
   
6.             .Text = "[(（]*[）)]"
   
7.             .Replacement.Text = ""
   
8.             .Forward = True
   
9.             .MatchWildcards = True
   
10.             Do While .Execute
    
11.                 With .Parent
    
12.                     .MoveStart
    
13.                     .MoveEnd 1, -1
    
14.                     .Font.Color = wdColorRed
    
15.                     .Start = .End
    
16.                 End With
    
17.             Loop
    
18.         End With
    
19.         .HomeKey 6
    
20.     End With
    
21. End Sub

复制代码