基于vba面向詞典編纂的英語拼寫校正(編輯修改稿)
2025-02-14 14:44 本頁面
【文章內容簡介】 dowsXP++MSWord2003環(huán)境下測試通過.圖1拼寫檢查和標注程序界面截圖對MicrosoftW0rd的Application可編程對象進行程控Application的聲明,調用和退出代碼如下:1)聲明’Word應用DimDRangeAsRange’檢查范圍2)調用SetWordApp=:False’隱藏W0rd的界面3)退出,不保存SetWordApp=Nothing’釋放Object‘檢查是否存在拼寫錯誤(StrSource):TrueThen‘沒有發(fā)現(xiàn)拼寫錯誤Else‘發(fā)現(xiàn)拼寫錯誤t繼續(xù)處理EndIf‘創(chuàng)建新的W0rd文檔,然后插入待查內容SetDRange=’設定范圍r檢查拼寫并統(tǒng)計錯誤的總數(shù)SetErrorCollection=’檢查amp。gt。0Then’發(fā)現(xiàn)拼寫錯誤=amp。amp?！疎rrolesarefound.”‘顯示拼寫錯誤的總數(shù)及提示Else沒有發(fā)現(xiàn)拼寫錯誤=“errorisfound!”‘顯示拼寫檢查任務巳完成l未發(fā)現(xiàn)拼寫錯誤EndIf1)提取單詞的錯誤拼寫形式.提取ErrorsCollection集合中的錯誤拼寫形式并填充到LstUnique中(本段代碼不含消重處理)Fori=拼寫形式(i).Text’填充Nexti2)判斷字符串StrWrongWord是否有拼寫更正建議SetSuggestionsCoHe~ion=ggestions(StrWrongWord)amp。gt。0Then’有更正建議=“Sugge~ionsarefound.”顯示結果Else’沒有更正建議=“Nosuggestion.”‘顯示結果EndIf3)提取拼寫更正建議獲得更正建議并追加暫存到字符串StrTempn=’獲得更正建議的總數(shù)Forn=1ToSuggestionsCofie~’遍歷更正建議StrTemp=StrTempamp。amp。(n1amp。amp?！眑’’Nextn根據(jù)需要設定格式,然后執(zhí)行全部替換操作即可實現(xiàn)拼寫單的標注.‘通過全部替換操作實現(xiàn)最簡單格式的批量標注‘LstUnique=經消重處理,無重復項的錯誤拼寫形式清堂‘LstSuggestions=與錯誤拼寫形式清單對應的拼寫更正軟件(您的文章得到院士的關注)馬立東:基于VBA面向詞典編纂的英語拼寫校正建議=行標注處理Fori=錯誤拼寫形式She11””amp。amp。amp。amp。準備通過替換進”\”,vbNormaWocus,砷5拼寫校正效果評估1’逐個獲取]D’不J下I口StrWrongSpelling=(i)’獲得錯誤拼寫形式StrSuggestedSpeUings=(i)獲得與錯誤拼寫形式相應的更正建議=Replace(,StrWrongSpelling,”【”amp。amp。StrSuggestedSpellingsamp。amp?！薄俊?‘通過替換進行標注Nexti用WordApplication對象的CustomDictionaries方法可,其特點是一個條目或一個單詞占一行,Windows系統(tǒng)自帶的Notepad記事本程序可打開用戶詞典進行編輯.1)添加用戶詞典t添加位于本程序所在文件夾內的用戶詞典Difficult(amp。amp?！癨).LanguageSpecific=False還可繼續(xù)添加用戶詞典,但最多不能超過9
環(huán)評公示相關推薦
鄂ICP備17016276號-1