dcsimg
September 18, 2020
Hot Topics:

VB Coding Tip: Use the Spell Checker

  • By Sam Huggill
  • Send Email »
  • More Articles »

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





This article was originally published on November 19, 2002

Enterprise Development Update

Don't miss an article. Subscribe to our newsletter below.


Thanks for your registration, follow us on our social networks to keep up-to-date