SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: mosaic04 en Miércoles 12 de Mayo de 2004, 12:11
-
:(
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
-
Veo que sigues con lo mismo: http://foros.solocodigo.com/index.php?show...t=0&#entry19325 (http://foros.solocodigo.com/index.php?showtopic=6727&st=0&#entry19325) ... A lo mejor si cerraras los temas la cosa iría mejor.
Abur.
-
He vuelto a insistir porque la solucion que me aportaste no me funciono...
-
Ok. Entonces para futuras ocasiones y para las pasadas hay que tener en cuenta que si abres un tema y lo dejas sin cerrar se debe a que la/s soluciones que la basca te aporta no te funcionan. Uno más en ese grupo.
Abur.