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

首頁 > 編程 > Visual Basic > 正文

VB調用Word拼寫檢查功能實例

2020-01-31 16:31:19
字體:
來源:轉載
供稿:網友

眾所周知,Word有自帶的拼寫檢查功能。VB中想要實現調用 Word 拼寫檢查功能其實很簡單就可以實現,方法是先建立word對象,然后把需要檢查的字符串放到 WORD中,調用word拼寫檢查,再取出返回值,最后關閉對象。

各個步驟的具體實現代碼如下所示:

Function CheckSpell(IncorrectText as string) as stringDim Word As Object, retText$ On Error Resume Next '建立WORD對象并打開Set Word = CreateObject("Word.Basic")'把需要檢查的 STRING 放到 WORDWord.AppShowWord.FileNewWord.Insert IncorrectText'調用WORD 拼寫檢查 Word.ToolsSpellingWord.EditSelectAll'得到返回值 retText = Word.Selection$()CheckSpell = Left$(retText, Len(retText) - 1)'關閉文件Word.FileClose 2 ShowSet Word = NothingEnd Function

本實例備有詳細的注釋,幫助讀者理解,此外讀者還可以在本實例的基礎上參閱其他資料做進一步的改善,以實現更為強大的功能!

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 夏津县| 广昌县| 林周县| 天水市| 桦川县| 博乐市| 麻阳| 镇坪县| 龙游县| 泗洪县| 衡东县| 黑龙江省| 潞西市| 乐清市| 东山县| 平阴县| 仪征市| 兴隆县| 唐河县| 方山县| 云林县| 胶南市| 剑河县| 南皮县| 武冈市| 蕉岭县| 阿巴嘎旗| 荣成市| 凯里市| 南投县| 吐鲁番市| 拜泉县| 西城区| 柯坪县| 屯留县| 吉林市| 和硕县| 丰宁| 都昌县| 甘洛县| 景东|