by jpcavagnaro » Fri Aug 19, 2022 8:30 pm
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
Jorge
Saludos.