实现正则表达式代码而不添加对RegEx库的引用

我开发了一个与主题行中的数字模式匹配的宏。我正在使用正则表达式库和以下代码段：

orderRegExp.Pattern = ".*\d{4}.*$"

在通过组策略推出时，我们遇到了困难，因为动态添加引用不起作用

我需要重新编写宏，这样它就可以在一个字符串中找到四个或更多连续的数字，而不必使用正则表达式。例如，正匹配应为“请参阅T2342了解更多详细信息”或“工作编号4763”。阴性匹配应为“请参见T123以获取参考”或“检查第456页”

最终实施的解决方案：

Function RegResult(SubjectString As String) As Boolean

Dim re As Object
Set re = CreateObject("vbscript.regexp")
With re
    .Pattern = ".*\d{4}.*$"
    RegResult = .test(SubjectString)
End With
End Function

---

请尝试后期绑定方式：

Dim regex as Object
Set regex = CreateObject("vbscript.regexp")

---

它不需要像早期绑定那样设置引用…

谢谢。成功了。我已经在上面添加了实现的解决方案。