Migue
12 de Mayo del 2004

Gracias de antemano si alguien me puede echar una mano....

Os comento, tengo diferentes controles RichTextBox sobre estos quiero aplicarles el corrector ortogr谩fica de Ms-Word, con la siguiente funcion:

Public Sub Ortografia(ByVal rtf As RichTextBox)
Dim MSWord As Object, Texto As String
Set MSWord = CreateObject("Word.Basic")
MSWord.AppMinimize
MSWord.AppHide
MSWord.FileNewDefault
MSWord.EditSelectAll
MSWord.EditCut
MSWord.Insert rtf.Text
MSWord.StartOfDocument
On Error Resume Next
MSWord.ToolsSpelling
On Error GoTo 0
MSWord.EditSelectAll
Texto = MSWord.Selection
If Mid(Texto, Len(Texto), 1) = Chr(13) Then Texto = Mid(Texto, 1, Len(Texto) - 1)
If Len(Texto) > 1 Then rtf = Texto
MSWord.FileCloseAll 2
MSWord.AppClose
MsgBox "Correci贸n ortogr谩fica terminada", vbInformation
End Sub

Funciona correctamete SALVO EN UN CASO CONCRETO... si el Richtextbox tiene aplicado algun formato a ese txto (negrita, cursiva, color, ...) cuando me vuelve a cargar los datos sobre el control pierde todos los formatos. He probado a cambiar la informaci贸n que se le pasa al objeto de Word... pero sio sin encontrar la solucion... HAY ALGUIEN QUE ME PUEDA AYUDAR ??... gracias