VBA中正则表达式的基本设置

一、前期绑定

二、基本设置代码

Sub VBA简单应用正则表达式_基本设置()
    Dim reg As Object
    '如果是前期绑定，则：    Dim reg As New RegExp
    
    Dim 文本 As String, 替换后的文本 As String
    Dim Ma
    
    '后期绑定
    Set reg = CreateObject("VBScript.RegExp")
    
    With reg
        .Global = True '匹配多项
        .IgnoreCase = True '不区分大小写
        .Pattern = "A" '正则表达式
        
        文本 = "adndefnA  as f A " '赋值一个文本用于试验
        
        Set Ma = .Execute(文本) '返回在文本中匹配的集合
        
        Debug.Print .test(文本) '如果返回true，则说明表达式在文本中匹配成功
        
        替换后的文本 = .Replace(文本, "A") '所有字母统一为大写
        
    End With
    
End Sub