Necesito saber como corregir la ortografia en visual 6.0 dentro de un richtextbox. Tengo una opción en el menú que es ortografia. Lo malo que en vez de con Word, he de hacerlo con Lotus Word pro.
Envio el codigo por si sirve. NECESITO AYUDA.GRACIAS
Private Sub mnuOrtografia_Click()
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") (Aqui ponía antes Word.Basic, habrá que cambiar el objeto, para el word pro, pero cómo???)
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
End Sub
GRACIAS DE ANTEMANO