不用，有函数可以直接过滤掉所有的尤其是脚本函数的 Public Function ReplacehtmlTextstrDim Str，re Str=Textstr Set re=new RegExp reIgnoreCase =True reGlobal=True rePattern=quotlt^*quotStr=reReplace。

我这个不用JS ，用正则匹配，效率也是很高的，调用也很方便，我一直用到现在，希望对您也有用 ltsummary 移除HTML标签 ltsummary ltparam name=quotHTMLStrquotHTMLStrltparam publi。

Function RemoveHTMLTagstrSet re = New RegExp rePattern = quotlt^lt*quotreGlobal = true RemoveHTMLTag =reReplacestr，quotquotSet re = Nothing End Function2function HTMLEncodefStringif not isnullfst。

这个要用到js中的replace方法，当然也要用到一个简单的正则表达式 list=quotltspandsadasdasdasltspanquotlist = listreplacelt*？ig，quotquot结果即dsadasdasdas。

好说啊，用浏览器打开网页，然后选中所有内容CTRL+A复制打开一个记事本粘贴到记事本里，ok了什么标签都没有了。