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

hao_jk

hao_jk 发表于 2021-12-30 12:51
出现了意想不到的错误，如果找到一个书名号里的关键字后，书名号后边的其他关键字会被替换再换回，查找不 ...

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

hao_jk

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

这个想的太简单了，如果有两个书名号之间的关键词会被认为是在书名号里。还是不行。

hao_jk

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

改了一下，应该可以了，太谢谢了

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.                        r.select '增加这一句
    
41.                        .Text = strReplaceText
    
42.                         .Font.Color = wdColorRed
    
43.                         .Font.Underline = wdUnderlineDouble
    
44.                     End If
    
45.                     .Start = .End
    
46.                 End With
    
47.             Loop
    
48.         End With
    
49.     End With
    
50. End Sub

复制代码

413191246se

楼主，可以把范文多加几个关键词，多加几个书名号，把复杂情况都包括进去，这样，几乎就正确了！
代码我就不研究了，你自己反复测试一下吧（我总觉得你虽然是初来，但水平却相当地高！）！

一闪流溢

换种思路朋友，先把括号和书名号里面的加粗或者变色，再查找普通的关键词即可。

wuwenbin32415

能不能用基础操作法里的通配符替换？