word模糊替换

yfy19870127

A项，氧气是含有一种元素的纯净物，属于单质，错误；  这里错误有时候是正确，都是随机的呢

B项，氦气是含有一种元素的纯净物，属于单质，错误；

C项，氮气是含有一种元素的纯净物，属于单质，错误；

D项，二氧化碳是含有两种元素，且其中一种是氧元素的化合物，属于氧化物，正确；


我这里有好多文件是上面的格式，我想批量替换成下面的格式，
就是把后面的错误或正确前面加一个对应的选项字母ABCD,
如果不能一次性替换，也可以分条替换的哦，谢谢啦~

A项，氧气是含有一种元素的纯净物，属于单质，A错误；

B项，氦气是含有一种元素的纯净物，属于单质，B错误；

C项，氮气是含有一种元素的纯净物，属于单质，C错误；

D项，二氧化碳是含有两种元素，且其中一种是氧元素的化合物，属于氧化物，D正确；


望高手解答，不胜感激

ming0018

如图，要分两次替换就是了。
等高人看看有没有一次的。

gbgbxgb

详情见附件。

yfy19870127

ming0018 发表于 2018-11-29 11:00
如图，要分两次替换就是了。
等高人看看有没有一次的。

A项，由同种元素组成的纯净物叫单质，金刚石、氦气、水银都属于单质，A正确；
B项，Mg、Cu属于金属，Cl属于非金属，A错误；
C项，水、氧化铁属于氧化物，氧气属于单质，C错误；
D项，空气、澄清石灰水属于混合物，高锰酸钾属于化合物，D错误；
答案选A

基本可以了，有点小问题，我发个word附件，麻烦你帮我调一下看看

ming0018

1. Sub test_replaceStr()
   
2.     Dim doc As Document, Par As Paragraph, reg As Object, Rng As Range
   
3.     Set doc = ActiveDocument: Set reg = CreateObject("VBScript.RegExp")
   
4.     With reg
   
5.         .IgnoreCase = False
   
6.         .Pattern = "([A-D])(项.+，)(错误|正确)"
   
7.         For Each Par In doc.Paragraphs
   
8.             Set Rng = doc.Range(Par.Range.Start, Par.Range.End - 2)
   
9.             Rng.Text = .Replace(Rng.Text, "$1$2$1$3")
   
10.         Next
    
11.     End With
    
12.     Set reg = Nothing
    
13. End Sub

复制代码

ming0018

我的代码有个坑，自己小心就是了。

yfy19870127

gbgbxgb 发表于 2018-11-29 11:03
试试：

你好，请问代码在word哪里粘贴使用呢？小白不懂谢谢了

相见是缘8

yfy19870127 发表于 2018-11-29 11:35
你好，请问代码在word哪里粘贴使用呢？小白不懂谢谢了

哈！楼主好福气！一求助就能得到两位顶级大神的解答，而两位大神的辛苦解答却碰到和我一样的小白，这让大神们无语了！！！

开个玩笑，楼主莫怪！我也才从你那儿过来。

步骤如下：

1、打开你需要处理的Word文档；

2、同时按电脑键盘上的ALT和F11键；

3、在左边的工程窗口里面有个“Normal”，点开它，后有个“模块”节点；

4、在这个“模块”节点上，点鼠标右键，选择“插入→模块”，这样右边就会出现代码窗口；

5、在出现的VBA代码窗口中，粘贴代码；

6、按电脑键盘上的“F5”键，运行代码，即可；

yhs185

ming0018 发表于 2018-11-29 11:33
我的代码有个坑，自己小心就是了。

什么坑？能说说吗

gbgbxgb

yhs185 发表于 2018-12-1 12:57
什么坑？能说说吗

代码书写者所说的“坑”大意是指代码写得匆忙、考虑不周，有可能不适应Word文档的复杂情况。

就其代码而言，本人冒然代其回答如下（^_^，勿怪，勿怪）：
1.a、b、c及d项必须是大写才行；
2.由于是整段内容替换，因此目标段落的文本格式会被破坏（若该段文本含了不同格式的话）；
3.还是上述第3点原因，因为整段内容替换，替换后有可能面目异样（譬如原段落内容含有图片）；
4.此外，Set Rng = doc.Range(Par.Range.Start, Par.Range.End - 2)这一语句在实际运行时可能出现“运行时错误”的提示，即“数值超出范围”，亦即end-2后比start值小的错误（造成这一错误的原因是当前段落若是一空段落的话）。

最后：在Word文档中插入内容，最好就字面意思进行操作，即仅进行“插入”操作，不要采用替换操作，如代码所示的替换操作不大可取。