function cleanWord(html) dim regEx set regEx=New RegExp regEx.IgnoreCase=True regEx.Global=True regEx.Pattern="[^>]*>" '清除所有>之間的內(nèi)容 html = regEx.replace(html,"" ) regEx.Pattern="{[^}]*}" '清除所有{}之間的內(nèi)容 html = regEx.replace(html,"" ) regEx.Pattern="/[^/]*/" '清除所有/**/之間的注釋 html = regEx.replace(html,"" ) html =Replace(html,"table.MsoNormalTable","") '替換掉漏網(wǎng)的單詞 cleanWord= html set regEx=nothing end function