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

各個(gè)步驟的具體實(shí)現(xiàn)代碼如下所示：

Function CheckSpell(IncorrectText as string) as string
Dim Word As Object, retText$ 
On Error Resume Next 
'建立WORD對象并打開
Set Word = CreateObject("Word.Basic")

'把需要檢查的 STRING 放到 WORD
Word.AppShow
Word.FileNew
Word.Insert IncorrectText

'調(diào)用WORD 拼寫檢查 
Word.ToolsSpelling
Word.EditSelectAll

'得到返回值 
retText = Word.Selection$()
CheckSpell = Left$(retText, Len(retText) - 1)

'關(guān)閉文件
Word.FileClose 2 
Show

Set Word = Nothing
End Function

本實(shí)例備有詳細(xì)的注釋，幫助讀者理解，此外讀者還可以在本實(shí)例的基礎(chǔ)上參閱其他資料做進(jìn)一步的改善，以實(shí)現(xiàn)更為強(qiáng)大的功能！

您可能感興趣的文章:

相關(guān)文章

VB鍵盤鼠標(biāo)無動作調(diào)用程序的嘗試
這篇文章主要介紹了VB鍵盤鼠標(biāo)無動作調(diào)用程序的嘗試，記錄下整個(gè)思路和過程，有需要的小伙伴可以參考下。
2015-06-06
VB FileSystemObject對象實(shí)例詳解
FileSystemObject對象被用來訪問服務(wù)器上的文件系統(tǒng)。這個(gè)對象能夠處理文件、文件夾和目錄路徑。用它來檢索文件系統(tǒng)信息也是可能的，而且vb與vbs、asp都是差不多的語法
2018-12-12
VB實(shí)現(xiàn)的16位和32位md5加密代碼分享
這篇文章主要介紹了VB實(shí)現(xiàn)的16位和32位md5加密代碼分享,需要的朋友可以參考下
2014-07-07
VB讀取線程、句柄及寫入內(nèi)存的API代碼實(shí)例
這篇文章主要介紹了VB讀取線程、句柄及寫入內(nèi)存的API代碼實(shí)例,需要的朋友可以參考下
2014-07-07
vb簡易計(jì)算器源碼
本人一覺醒來閑得無聊，正在學(xué)習(xí)VB，便用VB寫個(gè)簡易的計(jì)算器吧！鞏固基礎(chǔ)
2012-09-09
什么是一個(gè)高效的軟件
什么是一個(gè)高效的軟件...
2006-10-10
VB編程基礎(chǔ)課教程
VB編程基礎(chǔ)課教程...
2007-03-03
在VB中遍歷文件并用正則表達(dá)式完成復(fù)制及vb實(shí)現(xiàn)重命名、拷貝文件夾的方法
這篇文章主要介紹了在VB中遍歷文件并用正則表達(dá)式完成復(fù)制及vb實(shí)現(xiàn)重命名、拷貝文件夾的方法,需要的朋友可以參考下
2018-12-12
VB6實(shí)現(xiàn)連接Access數(shù)據(jù)庫的ADODB代碼實(shí)現(xiàn)方法
這篇文章主要介紹了VB6實(shí)現(xiàn)連接Access數(shù)據(jù)庫的ADODB代碼實(shí)現(xiàn)方法,對于初學(xué)者掌握VB鏈接access數(shù)據(jù)庫有著很好的借鑒價(jià)值,需要的朋友可以參考下
2014-07-07
VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法
這篇文章主要介紹了VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法,比較實(shí)用的功能,需要的朋友可以參考下
2014-07-07