模糊替换

yuanfuyong

替换前：1．（3分）下列说法正确的是(    )

A．将金属A投入B的盐溶液，A溶解说明A的金属性比B的金属性强

B．用干燥洁净的铂丝蘸取少量待测液在酒精灯火焰上灼烧，火焰呈黄色，说明该溶液是钠盐溶液

C．合成新型农药可以在元素周期表的金属与非金属交界处区域探寻

D．探究催化剂对H2O2分解速率的影响：在相同条件下，向一支试管中加入2mL5%H2O2和1mLH2O，向另一支试管中加入2mL5%H2O2和1mLFeCl3溶液，观察并比较实验现象

【答案】D

【解析】A．将金属A投入B的盐溶液，A溶解，没有指出置换出B，则不能说明A的金属性比B的金属性强，如铜与氯化铁的反应，A错误；

B．用洁净的铂丝蘸取少量溶液在酒精灯火焰上灼烧，火焰呈黄色，说明溶液中一定存在钠离子，该溶液可能为钠盐，有可能为氢氧化钠，所以不一定为钠盐，B错误；

C．应在由上角的非金属元素区寻找制备新型农药材料的元素，C错误；

D．两支试管中装有等体积、等浓度H2O2溶液，向其中一支试管中加入FeCl3溶液，氯化铁能改变化学反应速率，能达到实验目的，D正确；

故答案为：D。

替换后：

1．（3分）下列说法正确的是(    )

A．将金属A投入B的盐溶液，A溶解说明A的金属性比B的金属性强

B．用干燥洁净的铂丝蘸取少量待测液在酒精灯火焰上灼烧，火焰呈黄色，说明该溶液是钠盐溶液

C．合成新型农药可以在元素周期表的金属与非金属交界处区域探寻

D．探究催化剂对H2O2分解速率的影响：在相同条件下，向一支试管中加入2mL5%H2O2和1mLH2O，向另一支试管中加入2mL5%H2O2和1mLFeCl3溶液，观察并比较实验现象

【答案】D

【解析】A项，将金属A投入B的盐溶液，A溶解，没有指出置换出B，则不能说明A的金属性比B的金属性强，如铜与氯化铁的反应，A错误；

B项，用洁净的铂丝蘸取少量溶液在酒精灯火焰上灼烧，火焰呈黄色，说明溶液中一定存在钠离子，该溶液可能为钠盐，有可能为氢氧化钠，所以不一定为钠盐，B错误；

C项，应在由上角的非金属元素区寻找制备新型农药材料的元素，C错误；

D项，两支试管中装有等体积、等浓度H2O2溶液，向其中一支试管中加入FeCl3溶液，氯化铁能改变化学反应速率，能达到实验目的，D正确；

故答案为：D。

就是把解析中  [A-D]．替换成[A-D]项，   而选项中[A-D]．不被替换，请大神们帮帮忙，tks。

yuanfuyong

我自己写了一个这样的，但是会把上面选项的也替换掉了。查找：([A-D]{1,})(．)(*)([A-D])  替换：\1项，\3\4
各位老师能帮我看看是什么问题吗？

yuanfuyong

yuanfuyong 发表于 2019-4-30 12:03
我自己写了一个这样的，但是会把上面选项的也替换掉了。查找：([A-D]{1,})(．)(*)([A-D])  替换：\1项，\3\ ...

我发现了问题，就是按我写的的话，不在一句话中查找，而是可以跨好多行查找，来个VBA的大神帮我一下，谢谢了

413191246se

1. Sub test()
   
2.     With ActiveDocument.Content.Find
   
3.         .Execute "(【解析】*[A-D])．", , , 1, , , , , , "\1项，", 2
   
4.         .Execute "(【解析】*[A-D])．", , , 1, , , , , , "\1项，", 2
   
5.         .Execute "(【解析】*[A-D])．", , , 1, , , , , , "\1项，", 2
   
6.         .Execute "(【解析】*[A-D])．", , , 1, , , , , , "\1项，", 2
   
7.     End With
   
8. End Sub

复制代码

yuanfuyong

413191246se 发表于 2019-4-30 23:44

这个还是会替换掉选项的呢，能帮我改进一下吗？谢谢

413191246se

楼主，在我这 Word2003 + Winxp 下是正常的！但是我还是改了一下，请再试试：

1. Sub test2()
   
2.     With ActiveDocument.Content.Find
   
3.         .Execute "(【解析】*A)．", , , 1, , , , , , "\1项，", 2
   
4.         .Execute "(【解析】*B)．", , , 1, , , , , , "\1项，", 2
   
5.         .Execute "(【解析】*C)．", , , 1, , , , , , "\1项，", 2
   
6.         .Execute "(【解析】*D)．", , , 1, , , , , , "\1项，", 2
   
7.     End With
   
8. End Sub

复制代码

yuanfuyong

413191246se 发表于 2019-5-5 10:25
楼主，在我这 Word2003 + Winxp 下是正常的！但是我还是改了一下，请再试试：

老师，我总结了下，只要解析后面不是[A-D].  它就会向下查找，替换掉选项。我的是Word2013，win7呢。

413191246se

1. Sub test()
   
2.     Dim r As Range
   
3.     With Selection
   
4.         .HomeKey Unit:=wdStory
   
5.         With .Find
   
6.             .ClearFormatting
   
7.             .Text = "【解析】"
   
8.             .Forward = True
   
9.             .MatchWildcards = True
   
10.             Do While .Execute
    
11.                 With .Parent
    
12.                     .Expand 4
    
13.                     Do While .Next(4, 1) Like "[A-D][．.、]*"
    
14.                         .MoveEnd 4, 1
    
15.                     Loop
    
16.                     Set r = .Range
    
17.                     With r
    
18.                         .Font.Color = wdColorRed '红色（仅为显示鲜明，此行代码测试后可删除）
    
19.                         .Find.Execute "(A)[．.、]", , , 1, , , , , , "\1项，", 2
    
20.                         .Find.Execute "(B)[．.、]", , , 1, , , , , , "\1项，", 2
    
21.                         .Find.Execute "(C)[．.、]", , , 1, , , , , , "\1项，", 2
    
22.                         .Find.Execute "(D)[．.、]", , , 1, , , , , , "\1项，", 2
    
23.                     End With
    
24.                     .Start = .End
    
25.                 End With
    
26.             Loop
    
27.         End With
    
28.         .HomeKey Unit:=wdStory
    
29.     End With
    
30. End Sub

复制代码

yuanfuyong

413191246se 发表于 2019-5-5 14:11

简直是完美，太感谢了，老师