- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5眼萌app怎么色弱測試 眼萌app色弱測試圖文說明教程
- 6蘋果iphone自動時間不準確的多種校正方法
- 7百度安全衛士好用么_百度安全衛士技巧說明
- 8PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 9Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 10Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 11ipad版office如何激活? office365激活的圖文說明教程
- 12最新的Adobe Illustrator CS4序列號大全
[摘要]這個函數可以利用MS Word來檢查拼寫錯誤，當然只對E文有效，如果Microsoft在中關村我想它對中文肯定是可以的。<HTML><HEAD><TITLE> Spell checker</TITLE><SCRIPT LANGUAGE=vbsc...
這個函數可以利用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>
推薦資訊 總人氣榜
相關文章
