代码如下：
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," ","")
跨行合并：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 ......
