Spell Check problem

[Noz2k]

I have this code for Spell check, it works fine except when the information inputted in the text box is longer than the textbox can show at once (if that makes sense?). I get a type mismatch error.

The code sends the information to a hidden sheet ("Spelling") runs the spell check and then replaces the text in the textboxes with the corrected text.

Private Sub cmdSpellCheck_Click()
Dim SpellCheck  As String, _
    SpellCheck1 As String
If (Application.CheckSpelling(txtDetails.Text) = True) And (Application.CheckSpelling(txtOther.Text) = True) Then
MsgBox "Spell check returned no errors"
Else
SpellCheck = txtDetails.Text
SpellCheck1 = txtOther.Text
Application.Worksheets("Spelling").Cells(1, 1).Value = SpellCheck
Application.Worksheets("Spelling").Cells(2, 1).Value = SpellCheck1
'Now Check spelling
Worksheets("Spelling").CheckSpelling AlwaysSuggest:=True
txtDetails.Text = ThisWorkbook.Worksheets("Spelling").Cells(1, 1).Text
txtOther.Text = ThisWorkbook.Worksheets("Spelling").Cells(2, 1).Text
End If
End Sub

Is there anything in my code which I could change, or is it to do with the properties of the multiline textbox?

 

[Richard Schollar]

Have you set the Max length property of the textbox to anything? Try setting it to zero (0) if so.

 

[Noz2k]

Nope, it's already set to 0

Even stranger is that the same problem does not occur for the txtOther textbox. Despite any non appearance properties being exactly the same other than tab index

The error occurs on the line

If (Application.CheckSpelling(txtDetails.Text) = True) And (Application.CheckSpelling(txtOther.Text) = True) Then

 

[Noz2k]

Ah, no that's a lie, it only works on txtother to a certain limit (I'm guessing the same number of characters as txtOther is smaller than txtDetails).

Maybe the problem is to do with the max number of characters a cell can hold rather than the textbox?

 

[Richard Schollar]

When it bugs out and you hover your mouse over txtDetails.txt what does it show in the VBE?

 

[Richard Schollar]

Cells can hold 32,767 characters although the Text property will only return the first 1024. Do you have more characters than this?

 

[Noz2k]

Over each of the 4 bits, as follows

txtDetatils.Text = "If (Application.CheckSpelling(txtDetails.Text) = True) An...

True = True

txtOther.Text = ""

True = True

 

[Noz2k]

Cells can hold 32,767 characters although the Text property will only return the first 1024. Do you have more characters than this?

It may be that more than that is needed in certain instances. But the problem exists with less than that

 

[Noz2k]

The problem exists if I exceed 255 characters including spaces

 

[Noz2k]

I'm thinking that as a workaround I could split the text in the textbox, so that the first 255 characters are sent to cell(1,1) then the next 255 to cell(1,2) and so on

Just trying to get my head around doing that.