如何使用正则表达式仅替换<h> HTML标签外的指定字符串

• 方向判断错误：你写的(?!<h\d*>)是负向前瞻，检查当前位置后方是否存在h开头标签，但第一个Plus位于h标签内部，需要判断的是当前位置是否处于已打开未闭合的h标签区间内，原有逻辑完全搞反了判断方向。
• 闭合标签匹配错误：你写的(?!<\\h>)既不符合h标签闭合格式（正确闭合格式为</h\d>），也没有覆盖h标签内部可能存在其他任意内容的场景，无法起到排除h标签内匹配的作用。
• 逻辑覆盖不全：没有考虑h标签开标签和闭标签之间存在任意内容的场景，只判断Plus紧邻的前后内容，自然会匹配到h标签内部的Plus。

VBA使用的VBScript正则引擎不支持可变长度负向后顾，因此采用前瞻判断逻辑实现需求：
\bPlus\b(?!(?:(?!<h\d).)*<\/h\d)

逻辑说明 #

• \bPlus\b：确保匹配完整的独立单词Plus
• (?!(?:(?!<h\d).)*<\/h\d)：负向前瞻，判断从当前Plus位置往后，在遇到下一个<hX开标签之前，不会出现</hX>闭标签。如果Plus在h标签内部，那在遇到下一个h开标签之前必然会先遇到对应的h闭标签，该条件就会触发，跳过匹配，完美排除h标签内的Plus。

Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
reg.Global = True
reg.IgnoreCase = False ' 按需调整是否忽略大小写
reg.Pattern = "\bPlus\b(?!(?:(?!<h\d).)*<\/h\d)"
' 执行替换，例如将Plus替换为Premium
Dim result As String
result = reg.Replace(yourHtmlContent, "Premium")

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