欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-06-22 13:46:50
这个函数可以利用MS Word来检查拼写错误,当然只对E文有效,如果Microsoft在中关村我想它对中文肯定是可以的。 S...</div> <div class="content"> 这个函数可以利用MS Word来检查拼写错误,当然只对E文有效,<br>如果Microsoft在中关村我想它对中文肯定是可以的。<br><br><HTML><br><HEAD><br><TITLE> Spell checker</TITLE><br><SCRIPT LANGUAGE=vbscript><br><!--<br>    <br>Function SpellChecker(TextValue)<br>    <br>    Dim objWordobject<br>       Dim objDocobject <br>     <br>      Set objWordobject = CreateObject("word.Application")<br>      objWordobject.WindowState = 2<br>      objWordobject.Visible = True<br><br>      Set objDocobject = objWordobject.Documents.Add( , , 1, True)<br><br>      objDocobject.Content=TextValue<br>      objDocobject.CheckSpelling<br><br>    SpellChecker = objDocobject.Content<br>      objDocobject.Close false<br>      Set objDocobject  = Nothing<br>      objWordobject.Application.Quit True<br>      Set objWordobject= Nothing<br><br>End Function <br><br><br>Sub cmdOk_onclick()<br>     <br>       Dim strValue <br>      strValue = frmDemo.txtEditor.value<br>    frmDemo.txtEditor.value = SpellChecker(strValue)<br>    Msgbox "原文是 :" &  strValue <br>End Sub<br>--><br></SCRIPT><br></HEAD><br><BODY><br><FORM action="" method=post id=frmDemo name=frmDemo><br><P><TEXTAREA id=txtEditor style="WIDTH: 665px; HEIGHT: 217px" name=txtEditor rows=11 cols=73></TEXTAREA><br></P><br><input name=cmdOk value=Ok onclick="cmdOk_onclick" type=button><br></Form><br></Body><br></HTML><br><br> </div> <div class="info-pre-next"> <p> 上一篇: <a href="/article/1491204.html"> win764位系统安装mysql教程 </a> </p> <p> 下一篇: <a href="/article/1491206.html"> perl命令行参数怎么捕获? perl 获取命令行参数方法 </a> </p> </div> <div class="wz_tuijian"> <p> 推荐阅读 </p> <ul> <li> <a href="/article/1491205.html" target="_blank" title="一个检查E文拼写错误的Code"> <h2> 一个检查E文拼写错误的Code </h2> </a> </li> <li> <a href="/article/1270004.html" target="_blank" title="转贴一个有关MYSQL的文章.E文的.MySQLs Query Cache"> <h2> 转贴一个有关MYSQL的文章.E文的.MySQLs Query Cache </h2> </a> </li> <li> <a href="/article/1196439.html" target="_blank" title="一个有关MYSQL的文章.E文的.MySQLs Query Cache_PHP教程"> <h2> 一个有关MYSQL的文章.E文的.MySQLs Query Cache_PHP教程 </h2> </a> </li> <li> <a href="/article/335354.html" target="_blank" title="一个检查E文拼写错误的Code"> <h2> 一个检查E文拼写错误的Code </h2> </a> </li> </ul> </div> </article> </div> </main> <footer><div class="box"><div class="ft_nav"><div class="ft_about"><p>关于网站</p><ul><li><a href="/sitemap.xml" target="_blank" title="网站地图">网站地图</a></li><li><a href="/list/2/" title="最新程序员文章站">最新程序员文章站</a></li></ul></div><div class="ft_contact"><ul><li>本站所有数据收集于网络如有侵犯到您的权益,请联系我们进行下架处理。</li><li class="email_show"></li></ul></div></div><div class="copyright"><div class="cr_left"><p> 备案号:<a href="https://beian.miit.gov.cn/#/Integrated/index" target="_blank">粤ICP备20058927号</a></p><p>© Copyright © 2020-2022 www.superweb999.com 程序员文章站. </p></div></div></div></footer> </body> </html>