代码如下：
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," ","")
ODBC数据源可分为“系统型”和“文件型”，他们的区别在于“系统型”是连接数据库的信息建立在“系统注册表”里，“文件型”则是以dsn文件形式存储在ODBC源的目录下面
一、建立ODBC数据源的方法：
控制面板 - 管理工具 - 数据源（ODBC）
打开ODBC数据源管理器，然后� ......
跨行合并：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 ......
