function CleanWord(html)
{
html = REReplaceNocase(html,’ s* ’,’
’,’all’);
html = REReplaceNocase(html,’ .*? ’,’ ’,’all’);
html = REReplaceNocase(html,’s*mso-[^:]+:[^;"]+;?’,’
’,’all’);
html = REReplaceNocase(html,’s*MARGIN: 0cm 0cm 0pts*;’,’
’,’all’);
html = REReplaceNocase(html,’s*MARGIN: 0cm 0cm 0pts*"’,’"’,’all’);
html = REReplaceNocase(html,’s*TEXT-INDENT: 0cms*;’,’
’,’all’);
html = REReplaceNocase(html,’s*TEXT-INDENT: 0cms*"’,’"’,’all’);
html = REReplaceNocase(html,’s*TEXT-ALIGN: [^s;]+;?"’,’"’,’all’);
html = REReplaceNocase(html,’s*PAGE-BREAK-BEFORE: [^s;]+;?"’,’"’,’all’);
html = REReplaceNocase(html,’s*FONT-VARIANT: [^s;]+;?"’,’"’,’all’);
html = REReplaceNocase(html,’s*tab-stops:[^;"]*;?’,’
’,’all’);
html = REReplaceNocase(html,’s*tab-stops:[^"]*’,’
’,’all’);
html = REReplaceNocase(html,’s*face="[^"]*"’,’
’,’all’);
html = REReplaceNocase(html,’s*face=[^ >]*’,’
’,’all’);
html = REReplaceNocase(html,’s*FONT-FAMILY:[^;"]*;?’,’
’,’all’);
html = REReplaceNocase(html,’<(w[^>]*) class=([^ |>]*)([^>]*)’,’< ’,’all’);
html = REReplaceNocase(html,’<(w[^>]*) style="([^"]*)"([^>]*)’,’< ’,’all’);
html = REReplaceNocase(html,’s*style="s*"’,’
’,’all’);
html = REReplaceNocase(html,’ ]*>s* s*’,’ ’,’all’);
html = REReplaceNocase(html,’ ]*>’,’
’,’all’);
html = REReplaceNocase(html,’<(w[^>]*) lang=([^ |>]*)([^>]*)’,’< ’,’all’);
html = REReplaceNocase(html,’ (.*?)’,’ ’,’all’);
html = REReplaceNocase(html,’ (.*?)’,’ ’,’all’);
html = REReplaceNocase(html,’ ]*>’,’
’,’all’);
html = REReplaceNocase(html,’ ]*>’,’
’,’all’);
html = REReplaceNocase(html,’ s* ’,’
’,’all’);
html = REReplaceNocase(html,’ ]*)>’,’
’,’all’);
html = REReplaceNocase(html,’ ]*)>’,’
’,’all’);
html = REReplaceNocase(html,’ ]*)>’,’
’,’all’);
html = REReplaceNocase(html,’ ]*)>’,’
’,’all’);
html = REReplaceNocase(html,’ ]*)>’,’
’,’all’);
html = REReplaceNocase(html,’ ]*)>’,’
’,’all’);  
html = REReplaceNocase(html,’’,’
’,’all’);
html = REReplaceNocase(html,’<(U|I|STRIKE)> ’,’ ’,’all’);
html = REReplaceNocase(html,’<([^s>]+)[^>]*>s* ’,’
’,’all’);
html = REReplaceNocase(html,’<([^s>]+)[^>]*>s* ’,’
’,’all’);
html = REReplaceNocase(html,’<([^s>]+)[^>]*>s* ’,’
’,’all’);
html = REReplaceNocase(html,’( ]*>.*?)(

)’,’
’,’all’);
return html;
}