Function RegUrl(TheStr) Set RegEx = New RegExp RegEx.IgnoreCase =True regEx.Global = True'****这一句加上是全部替换,如果不加,只替换第一个 RegEx.Pattern = "<.*?>" RegUrl=RegEx.replace(TheStr,"") End Function