一个检查E文拼写错误的Code

这个函数可以利用MS Word来检查拼写错误，当然只对E文有效，
如果Microsoft在中关村我想它对中文肯定是可以的。

 1<html>
 2<head>
 3<title> Spell checker</title>
 4<script language="vbscript">   
 5<!--   
 6  
 7Function SpellChecker(TextValue)   
 8  
 9Dim objWordobject   
10Dim objDocobject   
11  
12Set objWordobject = CreateObject("word.Application")   
13objWordobject.WindowState = 2   
14objWordobject.Visible = True   
15  
16Set objDocobject = objWordobject.Documents.Add( , , 1, True)   
17  
18objDocobject.Content=TextValue   
19objDocobject.CheckSpelling   
20  
21SpellChecker = objDocobject.Content   
22objDocobject.Close false   
23Set objDocobject = Nothing   
24objWordobject.Application.Quit True   
25Set objWordobject= Nothing   
26  
27End Function   
28  
29  
30Sub cmdOk_onclick()   
31  
32Dim strValue   
33strValue = frmDemo.txtEditor.value   
34frmDemo.txtEditor.value = SpellChecker(strValue)   
35Msgbox "原文是 :" & strValue   
36End Sub   
37\-->   
38</script>
39</head>
40<body>
41<form action="" id="frmDemo" method="post" name="frmDemo">
42<p><textarea cols="73" id="txtEditor" name="txtEditor" rows="11" style="WIDTH: 665px; HEIGHT: 217px"></textarea>
43</p>
44<input name="cmdOk" onclick="cmdOk_onclick" type="button" value="Ok"/>
45</form>
46</body>
47</html>