Home > How-To Library > MS Office

How to use MS Word's Spelling Corrector within VB

****************************************************************
*       © 2007 CodeItBetter http://www.codeitbetter.com        *
*          This notice MUST stay intact for legal use          *
****************************************************************

'If you would like to incorporate a spellings corrector in your VB app, it would
'take you quite a long time, this trick shows you in a simple example how to use
'MS Word´s Spelling Corrector within VB.

'Create a new project with one form. Put a
'CommandButton and a TextBox on it.

'Set the following properties of the textbox:
'"Height = a couple of lines" Multiline=true 'ScrollBars=Vertical

'Code
Private Sub Command1_Click()
    Text1 = SpellCheck(Text1)
End Sub

Public Function SpellCheck(ByVal IncorrectText$) As String
    Dim Word As Object, retText$
    On Error Resume Next

    ' Create the Object and open Word
    Set Word = CreateObject("Word.Basic")

    ' Change the active window to Word, and insert the text from Text1 into Word.
    Word.AppShow
    Word.FileNew
    Word.Insert IncorrectText

    ' Runs the Speller Corrector
    Word.ToolsSpelling
    Word.EditSelectAll

    ' Trim the trailing character from the returned text.
    retText = Word.Selection$()
    SpellCheck = Left$(retText, Len(retText) - 1)

    ' Close the Document and return to Visual Basic.
    Word.FileClose 2
    Show

    'Set the word object to nothing to liberate the occupied memory
    Set Word = Nothing
End Function

'This uses WordBasic so that you can use this tip with older versions of Word as
'well.

If you would like to submit your code here please us. Do not forget to mention your name. We are always thankful to each and everyone of you who submitted their code here.