October 24, 2014
Hot Topics:
RSS RSS feed Download our iPhone app

VB Coding Tip: Use the Spell Checker

  • November 18, 2002
  • 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





Comment and Contribute

 


(Maximum characters: 1200). You have characters left.

 

 


Sitemap | Contact Us

Rocket Fuel