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