帮我：加上缺掉的英文右括号无效！

weiyingde

Sub 加上缺掉的英文右括号无效()
ActiveDocument.Content.Find.Execute "(([!^13]{1,})(^13)", , , , , , , , , "\1)\2", 2
End Sub

cuanju

sub d1()
    ActiveDocument.Content.Find.Execute FindText:="(\(*)(^13)", ReplaceWith:="\1)\2", Replace:=wdReplaceAll, MatchWildcards:=True
End Sub

weiyingde

cuanju 发表于 2020-7-16 14:03
sub d1()
    ActiveDocument.Content.Find.Execute FindText:="(\(*)(^13)", ReplaceWith:="\1)\2", Re ...

看下，先谢谢了。

weiyingde

cuanju 发表于 2020-7-16 14:03
sub d1()
    ActiveDocument.Content.Find.Execute FindText:="(\(*)(^13)", ReplaceWith:="\1)\2", Re ...

可以的，但是，我这个文档中有如下的情况
有教养的头脑的第一个标志就是善于提问。 (普列汉诺夫
百川东到海,何时复西归？少壮不努力,老大徒伤悲。(汉乐府《长歌行》)
百学须先立志。(朱熹)
宝剑锋从磨砺出,梅花香自苦寒来。
笔落惊风雨,诗成泣鬼神。(杜甫)
别裁伪体亲风雅,转益多师是汝师。(杜甫)
博观而约取,厚积而薄发。(苏轼)
博学之,审问之,慎思之,明辨之,笃行之。(《礼记》)
不登高山,不知天之高也;不临深溪,不知地之厚也。(《荀子》)
不飞则已,一飞冲天;不鸣则已,一鸣惊人。(司马迁)

代码把有右括号的也加上了右括号。比如：
博观而约取,厚积而薄发。(苏轼)  改成了：博观而约取,厚积而薄发。(苏轼)）

weiyingde

我自己改为：
ActiveDocument.Content.Find.Execute "(\([!^13\)]@)(^13)", , , 1, , , , , , "\1)\2", 2
也成功了。
但是不能用量词“+”，这样不成功。另外，查找框里表达式，出现“元字符”符号要转义，替换框中不必，想想也有道理。
ActiveDocument.Content.Find.Execute "(\([!^13\)]+)(^13)", , , 1, , , , , , "\1)\2", 2

cuanju

+是正则的用法，而通配符用{1,}，表示匹配一个或多个，两者容易混淆，
替换框的元字符不需要添加“\”转义，
===================================
Sub d6()
    ActiveDocument.Content.Find.Execute "(\([!^13\)]{1,})(^13)", , , 1, , , , , , "\1)\2", 2
End Sub

weiyingde

cuanju 发表于 2020-7-16 16:59
+是正则的用法，而通配符用{1,}，表示匹配一个或多个，两者容易混淆，
替换框的元字符不需要添加“\”转义 ...

谢谢指教，慢慢地懂得了一些常规用法。