Spell Check a TextBox

VB Code:

Add this code to a command button or popup menu item.
visual basic code:
   
    Dim objWord As Object
    Dim objDoc  As Object
    Dim strResult As String
    
    'Create a new instance of word Application
    Set objWord = CreateObject("word.Application")
 
    Select Case objWord.Version
        'Office 2000
        Case "9.0"
            Set objDoc = objWord.Documents.Add(, , 1, True)
        'Office XP
        Case "10.0"
            Set objDoc = objWord.Documents.Add(, , 1, True)
        'Office 97
        Case Else ' Office 97
            Set objDoc = objWord.Documents.Add
    End Select
 
    objDoc.Content = Text1.Text
    objDoc.CheckSpelling
 
    strResult = Left(objDoc.Content, Len(objDoc.Content) - 1)
 
    If Text1.Text = strResult Then
        ' There were no spelling errors, so give the user a
        ' visual signal that something happened
        MsgBox "The spelling check is complete.", vbInformation + vbOKOnly
    End If
    
    'Clean up
    objDoc.Close False
    Set objDoc = Nothing
    objWord.Application.Quit True
    Set objWord = Nothing
 
    ' Replace the selected text with the corrected text. It's important that
    ' this be done after the "Clean Up" because otherwise there are problems
    ' with the screen not repainting
    Text1.Text = strResult
 
    Exit Sub

How do u get it 2 check mulitple textboxes?? Do u enter the names here:

VB Code:

objDoc.Content = [COLOR=DarkRed]Text1.Text[/COLOR]
    objDoc.CheckSpelling
 
    strResult = Left(objDoc.Content, Len(objDoc.Content) - 1)
 
    If [COLOR=DarkRed]Text1.Text [/COLOR] = strResult Then
        ' There were no spelling errors, so give the user a
        ' visual signal that something happened
        MsgBox "The spelling check is complete.", vbInformation + vbOKOnly
    End If
    And finally [COLOR=DarkRed]Text1.Text [/COLOR] = strResult

objDoc.Content = Text1.Text
objDoc.CheckSpelling

strResult1 = Left(objDoc.Content, Len(objDoc.Content) - 1)

objDoc.Content = Text2.Text
objDoc.CheckSpelling

strResult2 = Left(objDoc.Content, Len(objDoc.Content) - 1)

http://www.vbforums.com/showthread.php?t=246451 :)

ThePCMan. I just want to point out that you should read the sticky at the top of this forum. If you do you'll find the following suggestion:

Quote:

---

In order to avoid duplicating something that is already in the Codebank, please do a search before posting.

---

In your case you might have found that you've copied my code. :)