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?

 

[Noz2k]

So I sort of have it working, would prefer a more clever way which didn't limit the amount of text which can be entered. But I guess I can just code it up to an unrealistic amount.

Private Sub cmdSpellCheck_Click()
Dim SpellCheck  As String, _
    SpellCheck1 As String, _
    SpellCheck2 As String
If (Application.CheckSpelling(Left(txtDetails.Text, 200)) = True) And (Application.CheckSpelling(Mid(txtDetails.Text, 201, 200)) = True) _
And (Application.CheckSpelling(txtOther.Text) = True) Then
MsgBox "Spell check returned no errors"
Else
SpellCheck = Left(txtDetails.Text, 200)
SpellCheck1 = txtOther.Text
SpellCheck2 = Mid(txtDetails.Text, 201, 200)
Application.Worksheets("Spelling").Cells(1, 1).Value = SpellCheck
Application.Worksheets("Spelling").Cells(1, 2).Value = SpellCheck2
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 & ThisWorkbook.Worksheets("Spelling").Cells(1, 2).Text
txtOther.Text = ThisWorkbook.Worksheets("Spelling").Cells(2, 1).Text
MsgBox "Spell Check complete"
End If
End Sub

 

[Richard Schollar]

My testing seems to show that Application.CheckSpelling won't take a string longer than 255 characters without reporting a Type Mismatch error, so you probably need to check the length of the text returned first before you pass it to this CheckSpelling function. You could maybe process chunks of the text using the funsction so that you don't exceed the limit.

 

[Richard Schollar]

I posted without seeing your posts #8+.

You could avoid splitting the string on a non space eg by using InstrRev:

If Len(TextBox1.Text)>255 Then
   myStr1 = Left(TextBox1.Text,InstrRev(TextBox1.Text," ",255))
  myStr2 = Mid(TextBox1.Text, Len(myStr1)+1)
End If

 

[Noz2k]

Ah, yeah, I hadn't thought of that problem, and would not have known how to solve it, so thanks

 

[Noz2k]

How do I use the InstrRev, along with the Mid function?

At the moment it doesn't split the first 255 characters on a non space, but after that it will do