ActiveDocument.Content.Find.Execute findtext语句如何支持通配符替换？

善源 · 发表于 2012-6-4 11:51

ActiveDocument.Content.Find.Execute findtext:="(", replacewith:="", Replace:=wdReplaceAll '替换括号为空
ActiveDocument.Content.Find.Execute findtext:=")", replacewith:="", Replace:=wdReplaceAll '替换括号为空

一般我是这种替换方法，但是括号里面的内容还会存在，我想通过(*)替换方法，直接将整个括号包括里面内容都删除。如何替换呢？是上面的这种替换方法，一条语句就能搞定吗？在线等高人！

善源 · 发表于 2012-6-4 17:45

顶一下!顶一下!顶一下!

善源 · 发表于 2012-6-5 10:38

顶一下!顶一下!顶一下!

413191246se · 发表于 2012-6-5 11:12

本帖最后由 413191246se 于 2012-6-5 11:13 编辑

备份文件后应用：（中英文括号及括号内文字全部删除）

Sub 删除括号内文字()
ActiveDocument.Content.Find.Execute findtext:="[（(]*[）)]", replacewith:="", Replace:=wdReplaceAll, MatchWildcards:=True
End Sub

lintf · 发表于 2020-12-18 16:44

学习了，

		自动登录	找回密码
密码			免费注册