Set FindItemRegEx=New RegExp
FindItemRegEx.Pattern="yourPattern"
FindItemRegEx.Global = True
FindItemRegEx.IgnoreCase = True
Set Matches = FindItemRegEx.Execute(yourString)
If Matches.Count<>0 Then
For each Match in Matches
...
Next
End If
转载于:https://www.cnblogs.com/testerZH/archive/2011/10/28/2227662.html