国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

一個檢查E文拼寫錯誤的Code

2019-11-18 20:39:33
字體：大 中 小
來源：轉載
供稿：網友
這個函數可以利用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>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 缙云县| 崇左市| 泽普县| 新巴尔虎右旗| 淄博市| 余庆县| 湘乡市| 台中市| 科尔| 泗洪县| 安福县| 崇仁县| 柘城县| 彩票| 奇台县| 志丹县| 湘阴县| 印江| 日照市| 札达县| 云梦县| 习水县| 鄂托克前旗| 泸水县| 榆社县| 孟州市| 慈利县| 册亨县| 河北区| 清原| 易门县| 周口市| 出国| 深州市| 甘孜县| 务川| 托克逊县| 宝清县| 勐海县| 蕉岭县| 湘阴县|