word vba find 如何匹配0个或多个前面的字符

[Sigurd]

我想同时匹配 ac, abc, abbc, abbbc ....

ab@c不能匹配0个b
ab{0,}c似乎不合法

有办法查找一次，匹配这样的字符串吗？

[宋翔]

使用VBScript的正则表达式

[宋翔]

代码如下：

Sub 查找零个以上字符()
     '添加对VBScript Regular Expression的引用
    Dim myRegExp As New VBScript_RegExp_55.regexp
    Dim str As String
    Dim match As Object, matches As Object
    str = ActiveDocument.Content
    myRegExp.IgnoreCase = True
    myRegExp.Global = True
    myRegExp.Pattern = "ab{0,}c"
    Set matches = myRegExp.Execute(str)
    For Each match In matches
        MsgBox match
    Next match
End Sub

[Sigurd]

使用VBScript正则表达式的话，是不是就不能享有Find带来的便利，
比如，我通过Find可以知道，找到的匹配项在哪一页，而通过正则操作String的话，
是不是没办法获得这种信息？除非我在用Find查找一遍"match".
另外，通过Find我应该可以查找页眉页脚上的内容（通过SeekView），而使用正则可以吗？

[宋翔]

又写了一段不使用VBScript的，直接使用Word VBA内置功能的，楼主试一下：

Sub 查找零个以上指定字符()
    Dim i As Integer
    Dim strfind As String
    Dim IsB As Boolean
    Selection.HomeKey unit:=wdStory
    With Selection.Find
        .Text = "a*c"
        .MatchWildcards = True
        .Execute Forward:=True
        Do While .Found
            strfind = Mid(Selection.Text, 2, Len(Selection.Text) - 2)
            IsB = True
            For i = 1 To Len(strfind)
                If strfind = "" Then MsgBox Selection.Text: Exit For
                If Mid(strfind, i, 1) <> "b" Then IsB = False: Exit For
            Next i
            If IsB Then MsgBox Selection.Text
            Selection.EndKey unit:=wdLine
            .Execute
        Loop
    End With
End Sub

[宋翔]

可以将If strfind = "" Then MsgBox Selection.Text: Exit For中的MsgBox Selection.Text: 删除，多余了。

[Sigurd]

不好意思，放假几天没有试一下。

"a*c"这样的匹配有个问题，如果文档中有addabc,它会一开始就匹配整个6个字符，
后续的判断会使IsB为False，
但是Find不再能发现真正的abc。是不是跟Selection.EndKey unit:=wdLine有关，
我想是否能如果发现有a存在与Selection中，就将Selection移动到a之前？
这样从a之前再次Find，就不会放过任何一个a*c。