VB呼叫Word拼字檢查功能實例

眾所周知，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.NewWord. Insert IncorrectText'呼叫WORD拼字檢查Word.ToolsSpellingWord.EditSelectAll'得到回傳值retText = Word.Selection$()CheckSpell = Left$(retText, Len(retText) - 1)'關閉檔案Word.FileClose 2 ShowSet Word = NothingEnd Function

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