How to use the Spelling Corrector tool of
MS Word 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.
|