ASP replaces tags in word with regular expressions and converts them to plain text

When you use the website background to edit and add the modified content, Company customers often copy the content directly from the word document to the editor and then submit it. The result is a variety of styles on the content display page, and sometimes some plain text content is used as an excerpt, all of which need to clear the Word format. To change the customer's habits, it is difficult for the customer to copy it to the notepad and paste it into the editor for editing. Therefore, we should change it ourselves. Baidu has cleared several regular expressions in the Word format from the Internet, which is not very effective. Therefore, I wrote ASP functions to clear the Word format, which can meet our own needs. The function is as follows: CopyCodeThe Code is as follows: function cleanword (HTML)
Dim RegEx
Set RegEx = new Regexp
RegEx. ignorecase = true
RegEx. Global = true
RegEx. pattern = "<[^>] *>" 'clear content between all <>
Html = RegEx. Replace (HTML ,"")
RegEx. pattern = "{[^}] *}" 'clears content between all {}
Html = RegEx. Replace (HTML ,"")
RegEx. pattern = "/[^/] */" 'clear comments between all /**/
Html = RegEx. Replace (HTML ,"")
Html = Replace (HTML, "table. msonormaltable ", "")'
Cleanword = html
Set RegEx = nothing
End Function