Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Apr 22, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Spell checker

Is there a shareware or vbx that can be implemented to check the spelling of a text box field?

If you know the machine you are running your program on has Microsoft Word, you can use Word to do your spell checking. By creating an object of type Word.Basic, you can let Word do the work for you. Use the following code to do it, which is actually part of a MDI frame's menu choice. You can replace "ActiveForm.ActiveControl" with the name of the text box you wish to check for spelling. Private Sub mnEditSpell_Click() Dim objWord As Object Dim bSelected As Boolean On Error GoTo mnEditSpell_EH ' ' Only should spell check text boxes, so bail ' out if it isn't one ' If Not IsEditable Then Exit Sub Set objWord = CreateObject("Word.Basic") objWord.Visible = False objWord.FileNew objWord.EditClear If ActiveForm.ActiveControl.SelText <> "" Then bSelected = True objWord.Insert ActiveForm.ActiveControl.SelText Else objWord.Insert ActiveForm.ActiveControl.Text End If objWord.StartOfDocument objWord.EndOfDocument (1) objWord.ToolsSpelling objWord.StartOfDocument objWord.EndOfDocument (1) objWord.EditCut With ActiveForm.ActiveControl If bSelected Then .Text = Left$(.Text, .SelStart) & Clipboard.GetText(1) & Right$(.Text, Len(.Text) - (.SelStart + .SelLength)) Else .Text = Clipboard.GetText(1) End If objWord.FileClose (2) .SetFocus End With Exit Sub mnEditSpell_EH: ActiveForm.ActiveControl.SetFocus If Err.Number = 51 Then MsgBox "Spelling check is complete.", vbInformation Else MsgBox Error$, vbExclamation End If Resume Next End Sub

DevX Pro
Comment and Contribute






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



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