Highlight the word that is misspelled

[jjfletcher]

Hello Everyone,

I have the below code that works great - I wanted to know what changes can be made to the code so the misspelled word is highlighted...

Any thoughts???

Private Sub CommandButton16_Click()

    Dim xCell As Range
    On Error Resume Next
    With ActiveSheet
        Set xCell = .Cells(.Rows.Count, .Columns.Count)
    End With
    xCell = TextBox2.Text
    xCell.CheckSpelling , , True, 1033
    TextBox2.Text = xCell
    xCell.ClearContents

End Sub

Regards,

John

 

[Eric W]

I assume that CommandButton16 and TextBox2 are controls on a UserForm. Given that, I don't think it's possible to highlight part of a text in a TextBox. You could flag the word by making it uppercase. Try this:

Private Sub CommandButton16_Click()
Dim Words As Variant, w As Variant, s As String

    Words = Split(TextBox2.Text)
    For Each w In Words
        If Not Application.CheckSpelling(w) Then w = UCase(w)
        s = s & w & " "
    Next w
    TextBox2.Text = Trim(s)
End Sub

Note that this version eliminates the need for putting the text on the spreadsheet in order to check spelling.

 

[jjfletcher]

Hi Eric,

Yes they are controls in a UserForm... Sorry about that!!

Thanks for your suggestion, The UPPER CASE solution seems logical, however it does not enable the Excel System Dictionary popup as in my code.. To bad those words that are spelled wrong cannot be highlighted.

Regards,

John