Corrector ortográfico

[jpcavagnaro]

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

Saludos
Jorge

[jpcavagnaro]

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

[Antonio Linares]

Estimado Jorge,

Puedes utilizar el corrector ortográfico que proporciona RichEdit5

aqui tienes un ejemplo proporcionado por Cristobal Navarro:
viewtopic.php?p=245839&sid=e4163ac1ea09ae846de640336077125e#p245839

[jpcavagnaro]

Excelente, muchas gracias....

Saludos
Jorge