国产探花免费观看_亚洲丰满少妇自慰呻吟_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>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 上栗县| 通榆县| 卓尼县| 灵丘县| 汝城县| 营山县| 花莲县| 泗洪县| 通榆县| 玉溪市| 开原市| 金山区| 察隅县| 威海市| 金川县| 西丰县| 铜山县| 民勤县| 板桥市| 益阳市| 惠东县| 潮州市| 海南省| 双流县| 仁寿县| 英超| 普宁市| 开原市| 郓城县| 迭部县| 天津市| 尖扎县| 武宁县| 淅川县| 中卫市| 腾冲县| 平昌县| 枝江市| 卫辉市| 临漳县| 皋兰县|