GRACIAS. Eso creo que ya lo sé. Pero es que la duda = no la e explicado bien... Cómo no tenemos el Word, he de buscar la manera de que sólo con un elemento (una parte) del word me funcione...entiendes?
Te envio el codigo para que digas si está bien, o falta algo o sobra...
Dim speller As Object
Dim TXT As String
Dim new_txt As String
Dim Pos As Integer
On Error GoTo OpenError
Set speller = CreateObject("Word.Basic")
On Error GoTo 0
speller.FileNew
speller.Insert rtfRichTextBox1.Text
speller.ToolsSpelling 'Cuadro de ortografía OpenSpelling
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