有没有办法删除括号外的内容

godhawk

有一个word文件，大概2mb大，里面都是中文和英文混排，词和词混排

类似这样：

1. 
   
2. 
   
3. Best wishes for the year to come!恭贺新禧！【Good luck 】in the year ahead!祝吉星高照！May you come into a【 good 】fortune!恭喜发财！Live long and proper!
   
4. 多福多寿！May many【 fortunes find 】their way to you!祝财运亨通！I want to wish you longevity and health!愿你健康长寿！Take good care of 【yourself 】in the year ahead.请多保重！Wishing you many future successes.祝你今后获得更大成就。

复制代码

需要把除了【】括号内的英文之外，其他所有的英文都是删掉，中文保留不变

我的写法是：

    Dim RngSel As Range
    Set RngSel = Selection.Range
    RngSel.Find.ClearFormatting
    RngSel.Find.Replacement.ClearFormatting
    RngSel.Find.Execute FindText:="^$", Forward:=True, Wrap:=wdFindStop, ReplaceWith:="", MatchWildcards:=False, Replace:=wdReplaceAll

但是这样的话，会把【】括号内的英文也一起删掉了，所以不可行……

请问有什么办法可以做出正确的筛选，只删除括号外的英文呢？

sylun

可先用特定格式（如突出显示）对括号内的部分进行标记，然后再查找处理不是该特定格式的部分，最后删除该特定格式。

huyh@

只知道 查找^$就可以删除所有的英文字符
使用通配符\[*\]可以删除被方括号包围的所有字符

期待高手的答案

润彩绘真

可以用查找替换这样试试，分两步：
一、查找“【* 】”替换为空（选通配符，格式字体为红色）
二、查找“^$”（不选通配符，格式字体颜色为自动）替换为空

sqhsqhli

Sub 有一步可以解决的吗()
With ActiveDocument.Content.Find
.Text = "【[A-Z,a-z ]@】"
.Forward = True
.MatchWildcards = True
Do While .Execute
.Parent.Font.Color = vbRed
Loop
End With
With ActiveDocument.Content.Find
.Text = "[A-Z,a-z .\!]@"
.Forward = False
.MatchWildcards = True
Do While .Execute
If .Parent.Font.Color <> vbRed Then .Parent.Delete
Selection.Collapse direction:=wdCollapseEnd
Loop
End With
ActiveDocument.Range.Font.Color = vbBlack
End Sub

sylun

其实只用查找替换的方法来处理是有问题的，会有错漏。因英文部分除字母外，可能还有空格、标点、数字等，而中文部分也可能有字母。
可试试如下代码，是对每个句子单位进行判断，假如当中有中文字就不删。如果文本断句规范，错漏会较少，当然，处理速度要慢些：

1. Sub test()
   
2.     Dim sRange As Range
   
3.     Dim i As Long
   
4.     For Each sRange In ActiveDocument.Content.Sentences
   
5.         With sRange
   
6.             If .Text Like "*[一-龥]*" = False Then
   
7.                 i = InStr(.Text, "【")
   
8.                 If i = 0 Then
   
9.                     If InStr(.Text, Chr(13)) Then .End = .End - 1
   
10.                     .Delete
    
11.                 Else
    
12.                     .End = .Start + i - 1
    
13.                     If .Start < .End Then .Delete
    
14.                     .Expand wdSentence
    
15.                     .Start = .Start + InStr(.Text, "】")
    
16.                     If InStr(.Text, Chr(13)) Then .End = .End - 1
    
17.                     If .Start < .End Then .Delete
    
18.                 End If
    
19.             End If
    
20.         End With
    
21.     Next
    
22. End Sub

复制代码

godhawk

楼上各位朋友提供的办法，都很不错，非常感谢，问题已经成功解决{:soso_e113:}

ggmmlol

.Pattern = "(【[^【】]*】|[\u4e00-\u9fa5]+[^\w\u4e00-\u9fa5【】]*)|[\s\S]"

1. Sub test()
   
2.     s$ = "Best wishes for the year to come!恭贺新禧！【Good luck 】in the year ahead!祝吉星高照！May you come into a【 good 】fortune!恭喜发财！Live long and proper!" & vbCrLf _
   
3.         & "多福多寿！May many【 fortunes find 】their way to you!祝财运亨通！I want to wish you longevity and health!愿你健康长寿！Take good care of 【yourself 】in the year ahead.请多保重！Wishing you many future successes.祝你今后获得更大成就。"
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Global = True
   
6.         .Pattern = "(【[^【】]*】|[\u4e00-\u9fa5]+[^\w\u4e00-\u9fa5【】]*)|[\s\S]"
   
7.         s = .Replace(s, "$1")
   
8.         MsgBox s
   
9.     End With
   
10. End Sub

复制代码