VB Coding Tip: Use the Spell Checker

Monday Nov 18th 2002 by Sam Huggill
Share:

Use Microsoft Word to spell check your work.

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
Share:
Home
Mobile Site | Full Site
Copyright 2017 © QuinStreet Inc. All Rights Reserved