regEx.Pattern = "{SQL_[^{]*\)}"

报错是这句话吧。这是正则表达式验证你的标签。

用我的方法替换一下这个方法

Function ReplaceUserFunctionLabel(Content)
   Dim regEx, Matches, SqlLabel,Match
   Dim Matchn,n
   Set regEx = New RegExp
   regEx.Pattern = "{SQL_[^{]*\)}"
   regEx.IgnoreCase = True
   regEx.Global = True
   Set Matches = regEx.Execute(Content)
   Dim Str:Str=Content
   For Each Match In Matches
     SqlLabel=Match.value
     Str=Replace(Str,SqlLabel,ReplaceDIYFunctionLabel(SqlLabel,"label"))
   Next
   '判断嵌套,Instr(Str,",'{SQL_")=0当含有ajax输出时，不递归
   If Instr(Str,"{SQL_")<>0 and Instr(Str,",'{SQL_")=0 Then Str=ReplaceUserFunctionLabel(Str)
   ReplaceUserFunctionLabel=replace(Str,"^!^","$")
  End Function