VB Coding Tip: Use the Spell Checker

Use Microsoft Word to spell check your work.

Public Function SpellCheck _
     (ByVal IncorrectText$) As String

Dim Word As Object, retText$

On Error Resume Next

Set Word = CreateObject("Word.Basic")

Word.AppShow
Word.FileNew
Word.Insert IncorrectText
Word.ToolsSpelling
Word.EditSelectAll

retText = Word.Selection$()
SpellCheck = Left$( retText, _
                    Len(retText) - 1)
Word.FileClose 2

Show

Set Word = Nothing

End Function

Private Sub cmdSpellCheck_Click()
Text1 = SpellCheck(Text1)
End Sub