Amigos del foro:
Es posible revisar y corregir la información registrada en un GET tipo MEMO ?
Alguien que lo haya resuelto que me tire una hebra por favor.
Saludos
Eso es algo que yo misma me pregunto
se podra y como ?
en donde empese a trabajar me preguntaron lo mismo
que si se podia les dije que no por si las dudas y si se puede que bueno pero como 
quien sabe
Saluditos
Aida
Armando y Aida:
En Utilidades hay una clase tAutoget, qizas les de una idea
de como hacerlo.
Saludos
Ruben Fernandez
PARA PODER HACER UNA CORRECCION ORTOGRFICA SE REQUIERE DE UN DICCIONARIO Y COMPARAR LAS PALABRAS
ESO LO HACE WORD
QUIZA ENVIANDO EL TEXTO A WORD
CORREGIR Y REGRESAR EL PARRAFO
SE REQUIERE ENLACE CON WORD UTILZANDO LA CLASE TWORD
Y BUSCARLE POR ESE CAMINO...
oooooooooh 
Ya leí la paginita y baje el archivo speller.zip
pero creo que es para clipper viejito mañana con calmita lo checare si es que no me gana la curiosidad esta noche 
Gracias
Saluditos
Aida
Encontré esta pagina
http://members.fortunecity.com/usergpoc ... C50_52.htm
parece que ahí hablaron de lo mismo pero hace añitos es una página de la época antigua del clipper a la mejor puede servir
Saludos
Aida
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 TextoAntonio:
Excelente aporte, funciona muy bien y es gratuito.
Saludos
OOOOOOOH Realmente se puede
Súper 
y como se usa?
usando un botón poniendo la suma de todas la variables donde se pongan los datos
Texto:=campo1+" "+campo2 + " " +campo3
y llamar a ORTOGRAFÍA(Texto)
o como
aaaaaah ya hice una prueba con una variable donde le puse muchas palabritas mal escritas y si funciono realmente increíble
Muchísimas gracias Antonio
Saluditos y hoy si me quede
Que tengan una bonita semana
Aida
Ya vi como funciona usando variables fijas pero como lo integro para que me corrija cada dato de cada get y campo memo y como remplazar los datos por los corregidos
Gracias
Aida
Ya me hice una rutinita para que todos mis Get los pase el corrector ortográfico pero es algo lento 
y sale una cuadro de Word
A pesar que esto está a si oWord:Visible := .F. porque si lo pongo en .T. si sale toda la barra de Word
El cuadro de Word que sale tapa completamente mi aplicación y hasta que no termina aparece de nuevo 
abra manera de hacer que ese cuadro no salga o se ponga en minimizado 
Haber que le podemos hacer por que realmente si es buena herramienta
Ahora si a dormir que mañana Lunes a madrugar
Saludos y súper buena semana para todos
Aida
AIDA wrote:Ya me hice una rutinita para que todos mis Get los pase el corrector ortográficopero es algo lento
MENUITEM "&Ortografía" ACTION ( ::cText( Ortografia(GetWindowText( ::hWnd )) )) // MIO
y sale una cuadro de Word
A pesar que esto está a si oWord:Visible := .F. porque si lo pongo en .T. si sale toda la barra de Word
El cuadro de Word que sale tapa completamente mi aplicación
abra manera de hacer que ese cuadro no salga o se ponga en minimizado
Haber que le podemos hacer por que realmente si es buena herramienta
Function ORTOGRAFIA(Texto)
Local oWord,oDoc,oTexto
Local cText:=Texto
oWord:=TOleAuto():New( "Word.Application" )
oWord:Visible := .F.
oWord:Set( "WindowState", 2 ) // Minimizado
.
.
.ya busque en toda la clase Tget.prg y no encuentro el menu contextual
yo tengo word 2007 a la mejor por eso sale el cuadro que comente
Saludos
Buena semana
Aida