asp 使用正则表达式替换word中的标签，转为纯文本

function cleanWord(html)
dim regEx
set regEx=New RegExp
regEx.IgnoreCase=True
regEx.Global=True
regEx.Pattern="[^>]*>" '清除所有>之间的内容
html = regEx.replace(html,"" )
regEx.Pattern="{[^}]*}" '清除所有{}之间的内容
html = regEx.replace(html,"" )
regEx.Pattern="/[^/]*/" '清除所有/**/之间的注释
html = regEx.replace(html,"" )
html =Replace(html,"table.MsoNormalTable","") '替换掉漏网的单词
cleanWord= html
set regEx=nothing
end function