首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

word vba find 怎么匹配0个或多个前面的字符

2012-03-31 
word vba find 如何匹配0个或多个前面的字符我想同时匹配 ac, abc, abbc, abbbc ....ab@c不能匹配0个bab{0

word vba find 如何匹配0个或多个前面的字符
我想同时匹配 ac, abc, abbc, abbbc ....

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

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

[解决办法]
又写了一段不使用VBScript的,直接使用Word VBA内置功能的,楼主试一下:

VB code
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 WithEnd Sub 

热点排行