查找替换能不能只在括号外操作？

hao_jk

比如我要查找替换一个关键字，但是如果是括号（）或者书名号《》内的就不替换，只替换括号外部的内容，应该怎么做呢？请高手指点，不胜感激。

413191246se

Sub a___FindReplace()
    ActiveDocument.Content.Find.Execute "(*[!(（《])(建议)([!》）)]*)", , , 1, , , , , , "\1意见\3", 2
End Sub

hao_jk

试了下，不行，括号里面外边都替换了。通配符昨天搞了一天也没弄成。我想是不是需要先查找，找到以后再看是不是在书名号里，在书名号里就不替换，但是不知道怎么实现。

hao_jk

用了个笨办法，先查找书名号内关键字替换为一个不常用的特殊符号，再通篇查找要找的关键字，然后再把书名号里的特殊符号换回来，谁能有更高效的办法还请不吝赐教。

413191246se

*** Demo-Text:
   
比如我要查找替换一个关键字，但是如果是括号（）或者书名号《》内的就不替换，只替换括号外部的内容，应该怎么做呢？
请高手指点，不胜感激。假如把“建议”替换为“意见”。

　　党的十九届五中全会通过的《中共中央关于制定国民经济和社会发展第十四个五年规划和二〇三五年远景目标的建议》（以下简称《建议》），强调“把新发展理念贯穿发展全过程和各领域”。习近平总书记在关于《建议》的说明中指出：“必须强调的是，新时代新阶段的发展必须贯彻新发展理念”。假如把“建议”替换为“意见”。

        
*** Test-Code:

1. Sub a___FindReplace_SymbolOut()
   
2.     Dim r As Range, strFindText$, strReplaceText$
   
3.     strFindText = InputBox("", "请输入要<查找>的关键词！", "建议")
   
4.     If strFindText = "" Then Exit Sub
   
5. 
   
6.     strReplaceText = InputBox("", "请输入要<替换>的关键词！", "意见")
   
7.     If strReplaceText = "" Then Exit Sub
   
8. 
   
9.     With Selection
   
10.         .HomeKey 6
    
11.         With .Find
    
12.             .ClearFormatting
    
13.             .Text = strFindText
    
14.             .Replacement.Text = ""
    
15.             .Forward = True
    
16.             .MatchWildcards = True
    
17.             Do While .Execute
    
18.                 With .Parent
    
19.                     Set r = .Range
    
20.                     Do
    
21.                         .MoveStart 1, -1
    
22.                         If .Text Like vbCr & "*" Then
    
23.                             r.Select
    
24.                             Exit Do
    
25.                         End If
    
26.                     Loop Until .Text Like "[(（《》）)]*"
    
27. 
    
28.                     Do
    
29.                         .MoveEnd
    
30.                         If .Text Like "*" & vbCr Then
    
31.                             r.Select
    
32.                             Exit Do
    
33.                         End If
    
34.                     Loop Until .Text Like "*[(（《》）)]"
    
35. 
    
36.                     If .Text Like "[(（《]*[》）)]" Then
    
37.                         r.Select
    
38.                         r.HighlightColorIndex = wdBrightGreen
    
39.                     Else
    
40.                         .Text = strReplaceText
    
41.                         .Font.Color = wdColorRed
    
42.                         .Font.Underline = wdUnderlineDouble
    
43.                     End If
    
44.                     .Start = .End
    
45.                 End With
    
46.             Loop
    
47.         End With
    
48.     End With
    
49. End Sub

复制代码

hao_jk

413191246se 发表于 2021-12-29 19:45
*** Demo-Text:
   
比如我要查找替换一个关键字，但是如果是括号（）或者书名号《》内的就不替换，只替 ...

这个是查找的代码，先替换书名号内的，再查找，然后换回来。

1. Sub 检测计量单位和简称() '不在书名号内查找,1个数组
   
2. Application.ScreenUpdating = False
   
3. ActiveDocument.Content.Font.ColorIndex = wdAuto
   
4. Dim Keywd, n%
   
5. Keywd = Array( "米", "平方", "立方", "公里", "吨", "千瓦","千伏")
   
6. 
   
7. Options.DefaultHighlightColorIndex = wdYellow
   
8. If ActiveDocument.TrackRevisions = True Then
   
9.    ActiveDocument.TrackRevisions = False
   
10.    ActiveDocument.ShowRevisions = False
    
11. End If
    
12. For i = 0 To UBound(Keywd)
    
13.     With ActiveDocument.Content.Find
    
14.         .ClearFormatting
    
15.         .Text = "《(*)" & Keywd(i) & "(*)》"
    
16.         .Replacement.Text = "《\1" & "№" & "\2》"
    
17.         .Format = False             '不查找格式
    
18.          .MatchCase = True          '区分大小写
    
19.          .MatchWholeWord = False     '不采用全字匹配
    
20.          .MatchByte = True          '区分全半角
    
21.          .MatchWildcards = True     '不使用通配符
    
22.          .MatchSoundsLike = False    '不查找同音
    
23.          .MatchAllWordForms = False  '不查找单词的所有形式
    
24.        '.Replacement.Highlight = True
    
25.         .Forward = True
    
26.          .Execute Replace:=wdReplaceAll
    
27.          End With
    
28.      With ActiveDocument.Content.Find
    
29.         .ClearFormatting
    
30.         .Text = Keywd(i)
    
31.         .Format = False             '不查找格式
    
32.          .MatchCase = True          '区分大小写
    
33.          .MatchWholeWord = False     '不采用全字匹配
    
34.          .MatchByte = True          '区分全半角
    
35.          .MatchWildcards = False     '不使用通配符
    
36.          .MatchSoundsLike = False    '不查找同音
    
37.          .MatchAllWordForms = False  '不查找单词的所有形式
    
38.          .Replacement.Highlight = True
    
39.          .Forward = True
    
40.          .Execute Replace:=wdReplaceAll
    
41.          Do While .Execute
    
42.              n = n + 1
    
43.          Loop
    
44.       End With
    
45.    
    
46.      With ActiveDocument.Content.Find
    
47.         .ClearFormatting
    
48.         .Text = "《(*)№(*)》"
    
49.         .Replacement.Text = "《\1" & Keywd(i) & "\2》"
    
50.         .Format = False             '不查找格式
    
51.          .MatchCase = True          '区分大小写
    
52.          .MatchWholeWord = False     '不采用全字匹配
    
53.          .MatchByte = True          '区分全半角
    
54.          .MatchWildcards = True     '不使用通配符
    
55.          .MatchSoundsLike = False    '不查找同音
    
56.          .MatchAllWordForms = False  '不查找单词的所有形式
    
57.         '.Replacement.Highlight = True
    
58.         .Forward = True
    
59.          .Execute Replace:=wdReplaceAll
    
60.          End With
    
61.   Next
    
62. 
    
63. 
    
64. Application.ScreenUpdating = True
    
65. MsgBox "操作完成！！共找到有 " & n & "处错误。", vbOKOnly, "提示"
    
66. End Sub

复制代码

hao_jk

413191246se 发表于 2021-12-29 19:45
*** Demo-Text:
   
比如我要查找替换一个关键字，但是如果是括号（）或者书名号《》内的就不替换，只替 ...

这个代码试了下，会把《》前的“建议”到《之间全部字符替换为“意见”

413191246se

楼主，我 5 楼代码，在我的 Word 2019 中处理结果正确！——你找找原因吧！

hao_jk

hao_jk 发表于 2021-12-30 09:46
这个是查找的代码，先替换书名号内的，再查找，然后换回来。

出现了意想不到的错误，如果找到一个书名号里的关键字后，书名号后边的其他关键字会被替换再换回，查找不到。高手给分析下，错在哪了

hao_jk

413191246se 发表于 2021-12-30 12:27
楼主，我 5 楼代码，在我的 Word 2019 中处理结果正确！——你找找原因吧！

我的是2007，应该一样的吧。