答案归位无结果，为之奈何？

wdpfox

代码中，1后少一个逗号，

                                        莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！  

tcdatongye

weiyingde 发表于 2020-1-15 13:15
谢谢，好用。

sub d()
ActiveDocument.Content.Find.Execute FindText:="([\(（])([\)）])(^13*)([A-D])^13", ReplaceWith:="\1\4\2\3", Replace:=wdReplaceAll, MatchWildcards:=True
end sub
在你提供的附件里是不行的。你的附件里不全是题目加答案这种形式

weiyingde

wdpfox 发表于 2020-1-15 13:48
代码中，1后少一个逗号，

是的，我已经发现了，谢谢你。