FiveTech Support Forums

Hola Gente, se puede tener un corrector ortográfico en el get de un memo

Saludos
Jorge

buscando en el foro, entrontre esta función que anda bien pero se muestra detras del programa o sea que hay que buscar la pantalla, como puedo hacer para traerla al frente.

Function ORTOGRAFIA(Texto)
Local oWord,oDoc,oTexto
Local cText:=Texto

oWord:=TOleAuto():New( "Word.Application" )
oWord:Visible := .f.
oWord:Documents:Add()
oDoc := oWord:Get("ActiveDocument")

oTexto := oWord:Selection()
oTexto:Text := Texto

oDoc:CheckSpelling()

cText := oTexto:Text

oDoc:Close(0)
oWord:Quit()
oTexto:=NIL
oDoc:=NIL
oWord:=NIL
cText:=StrTran(cText,Chr(13),Chr(13)+Chr(10)) // No recuerdo por qué puse esta linea

If !Empty(cText) // si cancelamos en el chequeo de ortografia, nos devuelve una cadena vacia
Texto := cText
Endif

Return Texto

Saludos
Jorge

Estimado Jorge,

Puedes utilizar el corrector ortográfico que proporciona RichEdit5

aqui tienes un ejemplo proporcionado por Cristobal Navarro:

viewtopic.php?p=245839sid=e4163ac1ea09ae846de640336077125e#p245839

&

Excelente, muchas gracias....

Saludos
Jorge