化学式中文括号怎么全部替换成英文括号

yuanfuyong

ming0018 发表于 2019-4-17 11:08
分两次替换，=([A-Z]) 或者 =([2-9][A-Z])
替换为：^c\1

好的，谢谢

yuanfuyong

thunor 发表于 2019-4-16 16:51
带有点正则表达式的性质，打开通配符，查找：([（])([A-Za-z]{1,}[0-9])([）])替换为：(\2)
初步就这样吧 ...

你好，我用了一段时间发现有些替换不了，有些又被替换了，所以我改了一下
查找：([（])([A-Za-z]{1,}[0-9])([）])([2-9])
替换：(\2)\4
我把括号外的下标数字也考虑进去了，但还有一些替换不了，具体看下附件，谢谢了

yuanfuyong

yuanfuyong 发表于 2019-4-17 09:27
好的，等我有问题的时候再请教你，谢了

不好意思刚忘记了上传附件了

413191246se

Sub test()
    ActiveDocument.Content.Find.Execute "[（(]([a-zA-Z0-9 ]{1,})[)）]", , , 1, , , , , , "(\1)", 2
End Sub

yuanfuyong

413191246se 发表于 2019-4-26 13:55
Sub test()
    ActiveDocument.Content.Find.Execute "[（(]([a-zA-Z0-9 ]{1,})[)）]", , , 1, , , , , , ...

老师，这种（1）（2）也会被替换，能避免吗？

thunor

感觉一次性替换各种组合形式可能不行（至少我办不到），但可以尝试分几次替换的方法来实现你的要求。正则表达式应该能一次性解决你的问题，但word对正则表达的支持我个人的理解是不太强，且处理文本可以，你又会丢掉图形，所以，还是分多次来实现吧。另外就寄希望于本论坛大老级的人物来解决了。多次替换，你也可以写成VBA来实现，注意保存好代码，每次运行一次代码，所有问题就解决了。
另外，Ca（HCO 3）2，这是你给的原内容，你是否注意到”O和3“之间还有一个空格？而我们使用的代码并不支持这个空格。

413191246se

Sub test()
    ActiveDocument.Content.Find.Execute "[（(]([a-zA-Z]{1,}[0-9]{1,})[)）]", , , 1, , , , , , "(\1)", 2
    ActiveDocument.Content.Find.Execute "[（(]([a-zA-Z]{1,})[)）]", , , 1, , , , , , "(\1)", 2
End Sub

yuanfuyong

thunor 发表于 2019-4-26 18:51
感觉一次性替换各种组合形式可能不行（至少我办不到），但可以尝试分几次替换的方法来实现你的要求。正则表 ...

恩恩，多次替换也没问题，我可以录制宏，VBA很强大，不好意思，那个空格是我的失误，化学式没有空格的

yuanfuyong

413191246se 发表于 2019-4-27 00:16
Sub test()
    ActiveDocument.Content.Find.Execute "[（(]([a-zA-Z]{1,}[0-9]{1,})[)）]", , , 1, , ,  ...

谢谢老师，我试下看看，有问题再请教你