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

最美de丑男子

最美de丑男子

2016-01-29 17:28

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

<HTML
<HEAD
<TITLE Spell checker</TITLE
<SCRIPT LANGUAGE=vbscript
<!--
    
Function SpellChecker(TextValue)
    
    Dim objWordobject
       Dim objDocobject
     
      Set objWordobject = CreateObject("word.Application")
      objWordobject.WindowState = 2
      objWordobject.Visible = True

      Set objDocobject = objWordobject.Documents.Add( , , 1, True)

      objDocobject.Content=TextValue
      objDocobject.CheckSpelling

    SpellChecker = objDocobject.Content
      objDocobject.Close false
      Set objDocobject  = Nothing
      objWordobject.Application.Quit True
      Set objWordobject= Nothing

End Function


Sub cmdOk_onclick()
     
       Dim strValue
      strValue = frmDemo.txtEditor.value
    frmDemo.txtEditor.value = SpellChecker(strValue)
    Msgbox "原文是 :" &  strValue
End Sub
--
</SCRIPT
</HEAD
<BODY
<FORM action="" method=post id=frmDemo name=frmDemo
<P<TEXTAREA id=txtEditor style="WIDTH: 665px; HEIGHT: 217px" name=txtEditor rows=11 cols=73</TEXTAREA
</P
<input name=cmdOk value=Ok onclick="cmdOk_onclick" type=button
</Form
</Body
</HTML

 
展开更多 50%)
分享

猜你喜欢

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

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

WPS文字怎么关闭拼写检查 WPS文字取消拼写检查教程

软件教程
WPS文字怎么关闭拼写检查  WPS文字取消拼写检查教程

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

使用WPS拼写检查提示单词拼写是否有误以及关闭拼写检查

计算机应用技术
使用WPS拼写检查提示单词拼写是否有误以及关闭拼写检查

Word2007怎样检查拼写和语法错误

word
Word2007怎样检查拼写和语法错误

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

一个浏览器检查类

PHP
一个浏览器检查类

IIS的一个莫名错误Server Application Unavailable

Web开发
IIS的一个莫名错误Server Application Unavailable

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Photoshop调色教程:怀旧风格“轨迹”之曲线运用

Photoshop调色教程:怀旧风格“轨迹”之曲线运用

Word2007技巧:快速到达指定的章、节、页

Word2007技巧:快速到达指定的章、节、页
下拉加载更多内容 ↓