//把文本内容存放在变量里
text = "正则表达式,又13655973216称正规表示法、常规表示法(英语:Regular Expression,在代码中常15655982354简写为regex、regexp或RE),计算机科学的一个概念。正则表达式使用单个字符串来描述、匹配一系17922654936列符合某个句法规则的字符串。在很多文本编辑器里,正则表达式13555982269通常被用来检索、替换那些符合某个模式的文本。"
Dim regEx, Matches, Match '需要用到的几个变量
set regEx = New RegExp '创建一个RegExp对象
regEx.[Global] = TRUE '设置全局可用性为TRUE,在需要更换此属性时,我会提醒你的。
regEx.IgnoreCase = FALSE '设置区分大小写为FALSE,也就是不区分大小写了
regEx.pattern ="\d+" '设置正则表达式
Set matches = regEx.execute(text) '进行匹配
For Each Match In Matches
texts = Match & vbcrlf & texts
next
MessageBox texts