Dim speller As Object
Dim TXT As String
Dim new_txt As String
Dim Pos As Integer
On Error GoTo OpenError
Set speller = CreateObject("WordPro")
On Error GoTo 0
speller.FileNew
speller.Insert rtfRichTextBox1.Text
speller.OpenSpelling 'Cuadro de ortografía
speller.EditSelectAll
TXT = speller.Selection()
If Right$(TXT, 1) = vbCr Then _
TXT = Left$(TXT, Len(TXT) - 1) 'Carácter de retorno
new_txt = ""
Pos = InStr(TXT, vbCr) 'Primera posición del carácter retorno
Do While Pos > 0
new_txt = new_txt & Left$(TXT, Pos - 1) & vbCrLf 'Retorno y avance línea
TXT = Right$(TXT, Len(TXT) - Pos) 'Siguiente línea
Pos = InStr(TXT, vbCr)
Loop
new_txt = new_txt & TXT
rtfRichTextBox1.Text = new_txt
Exit Sub
OpenError:
MsgBox "Error" & Str$(Err.Number) & _
" opening WordPro." & vbCrLf & _
Err.Description
