VBA正则表达式部分表达式匹配失败

2013-06-01 10:46:51 346 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【Excel VBA 编程】第61讲：两种方法驾驭文本处理猛兽一文搞懂贪婪匹配与惰性匹配，何时“贪”，何时“懒”不再迷茫阅读详情

    Selection.WholeStory    '全部选择

    Dim Resault As String

    Resault = Selection

    Resault = Selection.Text      '提取 字符串 与 带表格的特殊符号

    MsgBox Resault

    Dim regex As Object

    Set regex = CreateObject("VBScript.RegExp")

    With regex

        .Global = True      

        .Pattern = "\b\w*\b"      '正则表达式        MsgBox .Replace(Resault, "")

    End With