VBScript Word宏正则匹配无末尾句号URL报5692错误如何解决

你遇到的运行时错误5692，是因为你将标准正则语法直接应用到了Word自带的通配符查找逻辑中，二者语法规则存在明显差异：

• Word通配符的字符组取反语法是!而非^，你原正则里的[^\.]属于Word通配符的无效写法，是触发报错的直接原因
• Word通配符不支持标准正则里的\d、?（表示0/1次匹配）这类简写语法，直接使用也会触发语法错误
• 你原正则的[a-z|0-9]里多写了不必要的|，字符组默认就是或匹配逻辑，额外加|会把|本身也纳入匹配范围。

方案1：适配Word通配符查找（适用于直接用Range.Find/Selection.Find做匹配的场景） #

调整匹配模式为Word兼容语法，即可实现匹配URL且自动排除句末句号的需求：

pattern = "(http[s]{0,1}://)?[a-z0-9][a-z0-9/.-]@.[!^13^32.]@"

语法说明：

• 用[s]{0,1}代替标准正则的s?，表示s可以出现0次或1次
• 用[0-9]代替\d匹配数字
• 用@代替+表示匹配前面的规则1次及以上
• 用[!^13^32.]代替[^\.\s]，排除匹配内容末尾的句号、空格和段落标记。

方案2：使用VBScript原生RegExp对象（支持标准正则，适配性更强） #

如果不想适配Word专属的通配符语法，可以直接调用VBScript的正则对象做匹配，原正则只需要做少量优化即可正常运行：

' 初始化正则对象
Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
With regEx
    .Global = True
    .IgnoreCase = True
    ' 优化后的正则，兼容标准正则语法
    .Pattern = "((http|https)://)?([a-z0-9])([\da-z/.-]+)\.([^\.\s]*)"
End With

' 调用Execute方法即可从目标文本中提取所有符合要求的URL
Dim matchResults As Object
Set matchResults = regEx.Execute(你的目标文本变量)

内容的提问来源于stack exchange，提问作者Jacques tambard