VBA 使用正则剔除HTML标签

Function RemoveHTML(strText)
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Pattern = "<script[\s\S]*?</script>"
RegEx.Global = True
strText = RegEx.Replace(strText, "")

Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Pattern = "<style[\s\S]*?</style>"
RegEx.Global = True
strText = RegEx.Replace(strText, "")

Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function