fieldset{padding:10px;}
word vba find 如何匹配0个或多个前面的字符我想同时匹配 ac, abc, abbc, abbbc ….ab@c不能匹配0个bab{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这一秒不放弃,下一秒就会有希望。