FiveTech Software tech support forums

Same way as we can generate editable pdf documents using TPrinter():lUseHaruPDF, we wanted to provide generation of editable Word Docx also. But the work is incomplete. We will soon provide this feature.

Till then one can consider using TWord class that is available free to generate word document.

... Harbour que para xHarbour en el método REPLACE. He hecho algunos cambios y ya me funciona en Harbour METHOD Replace( cOld, cNew ) CLASS TWord       LOCAL oTexto, oFind, oReplace       //::oSelection    := ::oActiveDoc  // Vikthor       oTexto := ::oSelection:Range()       oFind ...

Karinha, parece que no nos entedemos. No creo que el problema esté el SOCIOS.PRG ya que con xHarbour funciona perfectamente. El problema surge al compilar con harbour. De cualquier manera agradezco enormemente el interés que te has tomado. Muchas gracias.

A la clase TWord original de Sebastián Almirón le cambie las funciones Ole---() por la clase TOleAuto() en el 2003. La última modificación fue en el 2015, subiré el código fuente de las clases TWord y TExcelS que tengo a GitHub. ...

Manuel, el problema está en SOCIOS.PRG, una lastima no comprendo tu lógica. busca una otra TWORD.PRG en el foro para comparar con la que tiene.

Regards, saludos.

... FusionWord("SOCIOS",aSeleC,cRutaDoc,lPreWord)..........................  Todo lo demás me parece irrelevante Esta es la clase TWord que estoy usando // Clase TWord// Mira el documento TWord.doc para información// 2003 Sebastián Almirón/*   5-Diciembre-2003   Clase TWord   Modificada ...

Muestra esta FUNCTION (b)IMPRIMIR( 1102 ) completa, pls.

Duda: la WORD.PRG que usas, és de esta version de FWH64 bits?

Slaudos.

Creo que ya he aislado el problema Si en el método de la clase TWord comento las lineas oFind:Set ya no se produce el error, pero obviamente no me realiza la fusión de datos que pretendo. METHOD Replace( cOld, cNew ) CLASS TWord       LOCAL oTexto, ...

... 13:27:45 Error description: Error BASE/1070 Argument error: == Args: [ 1] = P 0xB8549C [ 2] = C 0 Stack Calls =========== Called from: .\tword.PRG => TWORD:NEW( 381 ) Called from: .\socios.PRG => FUSIONWORD( 1388 ) Called from: .\socios.PRG => (b)IMPRIMIR( 1102 ) Called from: ...

No. Solo lo identifiqué para dar una lectura perfecta y asegurarme de que el error esté en otro lugar. Elimine /L de la BANDERA(Flag) de compilación para que sepamos dónde está el ERROR correcto. /l suppress line number information Called from: .\socios.PRG => FUSIONWORD( 0 ) // Quiero la línea c...

... 19:50:58 Error description: Error BASE/1070 Argument error: == Args: [ 1] = P 0x5A61C44 [ 2] = N 0 Stack Calls =========== Called from: .\tword.PRG => TWORD:NEW( 0 ) Called from: .\socios.PRG => FUSIONWORD( 0 ) Called from: .\socios.PRG => (b)IMPRIMIR( 0 ) Called from: .\source\classes\BUTTON.PRG ...

... + AllTrim( ( cUsaBase )->LOCALIDAD )         ENDIF         oWord := Tword():New()         oWord:OpenDoc( cRutaDoc )         IF lPreWord  ...

karinha wrote:esto és correcto?

Code: Select all  Expand view

   IF ( cUsaBase )->_ = "E" // ????
 

Regards, saludos.

No. Debe de haberse trastocado al transcribirlo

Lo correcto es:

Code: Select all  Expand view

IF (cUsaBase)->Nombre ="E"
 

esto és correcto?

Code: Select all  Expand view

   IF ( cUsaBase )->_ = "E" // ????
 

Regards, saludos.

... compilar y enlazar correctamente y arreglar algunos errores que han ido surgiendo en el proceso y, de momento, sólo tengo un error con la clase TWord que no consigo arreglar, que con xHarbour funciona perfecto y con Harbour da el error siguiente: .................. Error description: Error BASE/1070 ...