Hvordan laverver jeg stavekontrol i HTML tekst

Jeg benytter nendenstående script når jeg skal tjekke for stavefejl. Men den dur kun til en ren tekststreng....

Jeg vil gerne have den til at kunne tage en HTMLstreng og lave stavekontrol i denne, dog uden at slette htmlelementer eller for den sags skyld vise htmlkoder i stavekontrolvinduet.

Det kan jo i forvejen lade sig gøre i MSWORD så det må jo også kunne lade sig gøre i et htmldoc.


<!-- SpellChecker start -->
<SCRIPT LANGUAGE=vbscript>
    <!--
    function SpellChecker(TextValue)
       
        Dim objWordobject
        Dim objDocobject
        Dim strReturnValue
        'Create a new instance of word Application
        Set objWordobject = CreateObject("word.Application")
        objWordobject.WindowState = 2
        objWordobject.Visible = True
        'Create a new instance of Document
        Set objDocobject = objWordobject.Documents.Add( , , 1, True)
        objDocobject.Content=TextValue
        objDocobject.CheckSpelling
        'Return spell check completed text data
        strReturnValue = objDocobject.Content
        'Close Word Document
        objDocobject.Close False
        'Set Document To nothing
        Set objDocobject = Nothing
        'Quit Word
        objWordobject.Application.Quit True
        'Set word object To nothing
        Set objWordobject= Nothing
    SpellChecker=strReturnValue
    End function
    -->
</SCRIPT>
<!-- SpellChecker slut -->