Make your own free website on Tripod.com
Use MS Word Spell Checker To Check Spelling In Your Program

This example will launch the Word spell checker to check the spelling in text box, and correct them.

Preparations

Add 1 Command Button and 1 Text Box to your form.
Set the text box Multiline property to True (Optional).

Form Code

Private Sub Command1_Click()

    Dim objWord
    Dim tmpObjWord
    Dim strResults

    ' Only continue if user has typed text into the text box.
    If Len(Text1.Text) < 1 Then Exit Sub
   
   Set tmpObjWord = CreateObject("Word.Application")
   ' check if there are any spelling errors.
   If tmpObjWord.CheckSpelling(Text1.Text) Then
      MsgBox "The text spelled correctly"
      ' free memory
      Set tmpObjWord = Nothing
      ' exit sub - No spelling errors are found.
      Exit Sub
   End If
  
   'free memory
   Set tmpObjWord = Nothing
   Set objWord = CreateObject("Word.Application")
   With objWord
      ' hide the Word application
      .Visible = False
      ' Spell checker only works within a document
      .Documents.Add

      ' Put the text in the document
      .Selection.TypeText Text1.Text
     
      ' disallow grammer checking. To allow it set it to "True"
      .Options.CheckGrammarWithSpelling = False
      .Options.IgnoreUppercase = False

      ' Perform the spell checking
      .ActiveDocument.CheckSpelling

      ' Select the new, corrected text
      .Selection.WholeStory

      ' Copy Corrected text to Clipboard
      .Selection.Copy

      ' strResults holds the text after the spell corrections
      strResults = .Selection.Text

      ' close and free memory
      .ActiveDocument.Close (0)
      .Quit
   End With

   Set objWord = Nothing
      ' retrieve the corrected text from the clipboard
      Text1.Text = Clipboard.GetText
 
End Sub

Go Back