Spell Checker

<SCRIPT LANGUAGE=vbscript>
<!--
'SpellChecker
' PURPOSE: This function accepts Text data for which spell checking has to be done. 
' Return's Spelling corrected data 
'	
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>