vba正则表达式只返回第一个匹配

Question

我在VBA(WORD)中的正则表达式匹配只给出一个结果.

我创建了这个功能

Function RE6(strData As String) As String

    Dim RE As Object, REMatches As Object
    Set RE = CreateObject("vbscript.regexp")
    With RE
        .MultiLine = False
        .Global = False
        .IgnoreCase = True
        .Pattern = "\[substep [a-zA-Z]\](.*?); {1}"
    End With

    Set REMatches = RE.Execute(strData)

    RE6 = ""


End Function

这里的问题是它只给出了第一个结果.例如,我有一个字符串:

[step 1] title for substeps;  [substep a] step a; [substep b] step b; [substep c] step c; 

我的结果是:

[子步骤a]步骤a;

只有1个匹配,而不是步骤b和c.

Answer 1

您需要将Global设置为True

http://msdn.microsoft.com/en-us/library/tdte5kwf%28v=vs.84%29