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.

... para 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 := oTexto:Get( "Find ...

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.

Hola Vikthor,

¿ podrías poner la clase TWord modificada por tí ...

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.

... OF oDlg;
ACTION 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 ...

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, oFind, oReplace

//::oSelection := ::oActiveDoc ...

... 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: .\source ...

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

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

... IF Empty( AllTrim( ( cUsaBase )->PROVINCIA ) )

cCLP := ( cUsaBase )->CPostal + "-" + AllTrim( ( cUsaBase )->LOCALIDAD )

ENDIF

oWord := Tword():New()

oWord:OpenDoc( cRutaDoc )

IF lPreWord

oWord:Visualizar() // oWord:STARTPAGE()

ENDIF

oWord:Replace( "[NOMBRECOMUNIDAD]", cCoNombre ...

karinha wrote:esto és correcto?

Code: Select all | Expand

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

Regards, saludos.

No. Debe de haberse trastocado al transcribirlo

Lo correcto es:

esto és correcto?
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 ...