CodeItBetter Programming Another VB Programming Blog

'MS Office - How to use MS Word Spell Checker

'Add a Command Button and a Text Box to your form and set the text box Multiline property to True.

Private Sub Command1_Click()
    Dim objWord, tmpObjWord, 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 "No Spell Errors found."
        Set tmpObjWord = Nothing
        Exit Sub
    End If
    Set tmpObjWord = Nothing
    Set objWord = CreateObject("Word.Application")
    With objWord
        .Visible = False
        'Add new document in word
        .Documents.Add
        'add the text to that document
        .Selection.TypeText Text1.Text
        'No need to check grammar now
        .Options.CheckGrammarWithSpelling = False
        .Options.IgnoreUppercase = False
        'check spelling
        .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 the document
        .ActiveDocument.Close (0)
        'quit the word application
        .Quit
    End With
    Set objWord = Nothing
    'retrieve the corrected text from the clipboard
    Text1.Text = Clipboard.GetText
End Sub