复制代码 代码如下:
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