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
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
AIDA wrote:Ya me hice una rutinita para que todos mis Get los pase el corrector ortográfico pero 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 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
Function ORTOGRAFIA(Texto)
Local oWord,oDoc,oTexto
Local cText:=Texto
oWord:=TOleAuto():New( "Word.Application" )
oWord:Visible := .F.
oWord:Set( "WindowState", 2 ) // Minimizado
.
.
.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 131 guests