word vba正则

tpb123

各位老师们，请教一下，  正则匹配到的结果  必须要循环一个个替换掉？可以一次性？For Each 结果 In 结果集合这个能不能不用循环
    Set 表格 = Selection.Tables(1)
    内容 = 表格.Range.text
    Set 正则 = CreateObject("vbscript.regexp")
    With 正则
        .Pattern = "\s\（[^\s]+"
        .Global = True
        .IgnoreCase = True
        .MultiLine = True
        Set 结果集合 = .Execute(内容)
    End With
    If 结果集合.Count > 0 Then
        For Each 结果 In 结果集合
       替换文本 = 结果.Value
       表格.Range.Find.Execute FindText:=替换文本, ReplaceWith:="", Replace:=wdReplaceAll
        Next
    End If
    Set 正则 = Nothing
    Set 结果集合 = Nothing

sunya_0529

这个问题直接问新版Bing也挺不错的——

jiangxiaoyun

sunya_0529 发表于 2023-3-22 21:18
这个问题直接问新版Bing也挺不错的——

ai这么强大了啊

tpb123

sunya_0529 发表于 2023-3-22 21:18
这个问题直接问新版Bing也挺不错的——

我试过了，好像不可以

tpb123

sunya_0529 发表于 2023-3-22 21:18
这个问题直接问新版Bing也挺不错的——

我重新试下。好像我写错了，不好意思

tpb123

sunya_0529 发表于 2023-3-22 21:18
这个问题直接问新版Bing也挺不错的——

还是不行，还没找到办法，会乱码

perfect131

tpb123 发表于 2023-3-23 00:00
还是不行，还没找到办法，会乱码

表格.Range.text= 不能写入整个表需要循环，还是用通配符吧

tpb123

perfect131 发表于 2023-3-23 11:20
表格.Range.text= 不能写入整个表需要循环，还是用通配符吧

谢谢老师，确实不能正常写入，循环才可以正常写入，后面也是用通配符的，实在不想循环

tpb123

perfect131 发表于 2023-3-23 11:20
表格.Range.text= 不能写入整个表需要循环，还是用通配符吧

老师，再请教一下，vba正则引擎比较弱，怎么使用其他的正则