在Excel VBA中从string中删除HTML标记

我想从Excel VBA中的string中删除所有HTML标记。

例如:

before_text = "text1 <br> text2 <a href = 'www.data.com' id = 'data'>text3</a> text4" after_text = RemoveTags(before_text) 

结果:

 after_text = "text1 text2 text3 text4" 

 vbscript.regexp 

码:

 Function RemoveHTML(text As String) As String Dim regexObject As Object Set regexObject = CreateObject("vbscript.regexp") With regexObject .Pattern = "<!*[^<>]*>" 'html tags and comments .Global = True .IgnoreCase = True .MultiLine = True End With RemoveHTML = regexObject.Replace(text, "") End Function