代码如下：
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
这是最基本的正则替换，有某些特殊字符还没过滤，可自行添加！
如：
RemoveHTML = Replace(RemoveHTML," ","")
1. 超链接的图片去掉边框的方法：
在 语句里加上 border=0
如：<img border=0
src="sadf.jpg">
2.鼠标放上去图片变色的方法：
用到了标签的事件功能，调用方法是 function="this.src='asdf.jpg'"
如� ......
跨行合并：rowspan, 跨列合并： colspan.
<table border=2 width="50%">
<tr>
<td rowspan=2> 天朝 </td>
<td> Party </td>
</tr>
<tr><td>河蟹</td></tr>
</table>
<table border=2 width="50%">
<tr&g ......
