Cómo corregir la ortografía ?

[Armando]

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

[AIDA]

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

[Ruben D. Fernandez]

Armando y Aida:

En Utilidades hay una clase tAutoget, qizas les de una idea
de como hacerlo.

Saludos

Ruben Fernandez

[Marco Augusto]

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...

[Armando]

Rubén, Marco:

Muchas gracias por las sugerencias, revisando en el foro encontre esto

[/url]http://www.jbooth-consulting.com/products_speller.asp[url]

Creo que puede ser un buen principio.

Saludos[/url]

[Armando]

Whoopps:

Este es el link correcto

http://www.jbooth-consulting.com/products_speller.asp

Un abrazo

[AIDA]

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

[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

[AJHM]

Hola a todos.

Yo lo hago de esta manera:

Code: Select all  Expand view


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



Utilizo xHarbour.

Un saludo.
- Antonio Jesús -

P.D.: si alguien la depura o la mejora, que la publique aquí o me la mande a mi correo. Gracias.

[Armando]

Antonio:

Excelente aporte, funciona muy bien y es gratuito.

Saludos

[AIDA]

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

[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

[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

[AJHM]

Hola Aida.

Ya me hice una rutinita para que todos mis Get los pase el corrector ortográfico pero es algo lento

Si lo haces en todos los Gets vas a saturar mucho el programa. Ten en cuenta que tiene que abrir el Word, chequear y cerrar el word cada vez que pasas por un Get.

Yo lo utilizaria solo en el Valid de los Gets que te interesen o, como yo lo hago, en el menu contextual de la clase Tget (el menu que sale cuando pulsas el boton derecho del raton):

Code: Select all  Expand view

         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 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

Yo he hecho pruebas con el Word 2003 y no se a que cuadro te refieres, sólo me aparece el cuadro de chequeo cuando hay errores en la ortografia
A lo mejor se puede quitar ese cuadro en las opciones del Word (que no lo muestre al iniciar) o incluso puede que sea posible modificar esa opcion a traves de la clase Tole (ahí ya me pierdo).

También puedes probrar con esta linea:
oWord:Set( "WindowState", 2 ) // Minimizado

Code: Select all  Expand view

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

  oWord:=TOleAuto():New( "Word.Application" )
  oWord:Visible := .F.
     oWord:Set( "WindowState", 2 )  // Minimizado
  .
  .
  .



[AIDA]

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