word删除括号内容保留括号

SCWYZJ

求助：怎样用VBA批量删除word中括号中的数据，保留括号及原有长度（见附件），麻烦老师帮忙看看，谢谢！

wang-way

查找替换为指定长度的空格space（n）

wang-way

试试效果

wang-way

  我来练练手

lsdongjh

正则分组找出：分三组，第一组为前括号，第二组为括号中的内容，第三组为后括号。
然后根据正则反馈的第二组的长度，直接替换为空格就成了

ggmmlol

可以用正则表达式的替换功能，也可以用WORD内置的替换功能。建议使用后者。
代码分别如下：

1. Sub 正则替换()
   
2.     Dim p As Paragraph, reg As Object, s$
   
3.     Set reg = CreateObject("VBScript.RegExp")
   
4.     reg.Global = True
   
5.     reg.Pattern = "^(\d+、.*?)[\(（][A-Z、]+([）\)])"
   
6.     For Each p In Word.Application.ActiveDocument.Paragraphs
   
7.         s = p.Range.Text
   
8.         If reg.test(s) Then
   
9.             s = reg.Replace(s, "$1（  ）")
   
10.             p.Range.Text = s
    
11.         End If
    
12.     Next
    
13. End Sub

复制代码

1. Sub 替换()
   
2.     Selection.HomeKey Unit:=wdStory
   
3.     With Selection.Find
   
4.         .ClearFormatting
   
5.         .Replacement.ClearFormatting
   
6.         .Text = "([0-9]{1,}、[!（）]{1,})[（(][A-Z、 ]{1,}[)）]"
   
7.         .Replacement.Text = "\1（  ）"
   
8.         .Forward = True
   
9.         .Wrap = wdFindContinue
   
10.         .Format = False
    
11.         .MatchCase = False
    
12.         .MatchWholeWord = False
    
13.         .MatchByte = False
    
14.         .MatchAllWordForms = False
    
15.         .MatchSoundsLike = False
    
16.         .MatchWildcards = True
    
17.         .Execute Replace:=wdReplaceAll
    
18.     End With
    
19. End Sub

复制代码

SCWYZJ

谢谢wang-way  ggmmlol 二位老师，我试了下，wang-way 老师的方法更符合要求，我要求删除全部数据(不管中文英文数字符号)，而且不分全角和半角，所以稍加改动wang-way 老师的代码，就可以了，我把分给他聊。ggmmlol 抱歉，您的代码也不错，向您学习，再次感谢二位老师的热心解答！

wang-way

SCWYZJ 发表于 2021-2-22 19:44
谢谢wang-way  ggmmlol 二位老师，我试了下，wang-way 老师的方法更符合要求，我要求删除全部数据(不管中 ...

他是大神，你肯定还没有体会他代码的精妙