清除括号里内容后，保持空括号的相应宽度

常扬帆

请教各位大侠：有什么办法能做到→清除括号里内容后，保持空括号的相应宽度。衷心感谢！

413191246se

1. Sub a0923_替换括号内容_保持宽度()
   
2. '括号
   
3.     Dim i&, j&
   
4.     With ActiveDocument.Content.Find
   
5.         .ClearFormatting
   
6.         .Text = "[（(]*[)）]"
   
7.         .Forward = True
   
8.         .MatchWildcards = True
   
9.         Do While .Execute
   
10.             With .Parent
    
11.                 .Characters(1).Text = "（"
    
12.                 .Characters.Last.Text = "）"
    
13.                 .MoveStart
    
14.                 j = Len(.Text)
    
15.                 For i = 1 To j
    
16.                     .Characters(i).Text = Chr(-24159)
    
17.                 Next
    
18.                 .Start = .End
    
19.             End With
    
20.         Loop
    
21.     End With
    
22.    
    
23. '下划线
    
24.     With ActiveDocument.Content.Find
    
25.         .ClearFormatting
    
26.         .Font.Underline = wdUnderlineSingle
    
27.         .Text = ""
    
28.         .Forward = True
    
29.         .MatchWildcards = True
    
30.         Do While .Execute
    
31.             With .Parent
    
32.                 j = Len(.Text)
    
33.                 For i = 1 To j
    
34.                     .Characters(i).Text = Chr(-24159)
    
35.                 Next
    
36.                 .Start = .End + 1
    
37.             End With
    
38.         Loop
    
39.     End With
    
40. End Sub

复制代码

常扬帆

413191246se 发表于 2022-9-23 01:03

正是我要的结果。感谢万分！万分感谢！

wuwenbin32415

有没有不用vba的基础替换法？

wuwenbin32415

我自己琢磨出来了：先查找（*）,再查找[!（*）]、替换为按两下空格（按一下还不行，即使用中文输入的空格也不行）。
有没有一次性替换的方法？