Use MSWord spell corrector tools within VB

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

I used WordBasic because that way you can also use this tip with older versions of Word aswell. (by. Philip N)