How to get a spell checker for a text box in userform

[Legacy 146660]

Hi All<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
What is happening is i have a text box where i type in comments in a user form. A lot of time i make mistakes and spell things wrong. So what i want is while i am typing if i wrongly spell a word can there be a thing like in word tell me that this wrong and show me a option with correct spelling.<o></o>
or when it tries to put the data in the excel sheet then it will give me an option to correct my spellings.<o></o>
<o></o>
I hope i have explained it well but if you want any more explanation then let me know.<o></o>
<o></o>
Thanks in advance
Monty

 

[Legacy 146660]

Quickly one more thing to add i know there is something called "Application.checkspelling" but i dont know how to use this.

Thanks

 

[Ruddles]

Easy in Access; can't work it out in Excel!

But you can copy the value into an empty cell somewhere and check that:-

Range("A1") = TextBox1
Range("A1").CheckSpelling
TextBox1 = Range("A1")
Range("A1").ClearContents

 

[pedie]

Sub Chec_1()
Sheet4.TextBox1.Value = Range("A1").Value
With Application.SpellingOptions
        .SuggestMainOnly = True
        .IgnoreCaps = True
    End With
    ' Run a spell check.
Range("A1").CheckSpelling
End Sub

 

[MickG]

See Vb Help !!
The spellChecker produces a Dialog Box!!
I don't think you can use SpellChecker Directly in a TextBox, but you could use a Helper cell as below.

Private Sub TextBox1_LostFocus()
Range("A1") = TextBox1
Range("a1").CheckSpelling
TextBox1 = Range("A1")
End Sub

Mick

 

[RoryA]

Not ideal but you could use code like this attached to a button to spellcheck the textbox afterwards:

    Dim varWords
    Dim n As Long, lngLen As Long
    varWords = Split(Me.TextBox1.Text, " ")
    For n = LBound(varWords) To UBound(varWords)
        If Not Application.CheckSpelling(varWords(n)) Then
            With Me.TextBox1
                .SelStart = lngLen
                .SelLength = Len(varWords(n))
                .SetFocus
            End With
            Exit For
        Else
            lngLen = lngLen + Len(varWords(n)) + 1
        End If
    Next n

 

[Legacy 146660]

Thanks for all ur help guyz....