FiveTech Software tech support forums

Manuel

Vi en uno de tus post

Así es mo lo hago yo y no temgo problema alguno:

oWord := Tword():New()
oWord:OpenDoc(cRutaDoc)
//
oWord:Replace("[NOMBRE]",cNombre)
oWord:Replace("[DOMICILIO]",cDomicilio)
//
IF lPreWord
oWord:Visualizar()
ENDIF
//
oWord:PrintDoc()
oWord:End(.F.)


Un ...

Colin,

I made some tests and I found the problem.

The method OpenDoc (cNombre) needs the filename with its full path to work correctly.

oWord := TWord():New()//oWord:NewDoc('Creswin.doc') // not working !oWord:OpenDoc ("d:\xbase\xharbour\tword\Creswin.doc") // working fine ...

... method: GET
Args:
[ 1] = U
[ 2] = C Documents

Stack Calls
===========
Called from: tget.prg => GET(0)
Called from: Twordx.prg => TWORD:OPENDOC(376)
Called from: report7.prg => REPORT7(13)
Called from: Main.prg => (b)MAINMENU(149)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from ...

... New

DEFINE FONT oFont1 NAME "Arial" SIZE 0,-12 BOLD ITALIC UNDERLINE of oWord
DEFINE FONT oFont2 NAME "Tahoma" SIZE 0,-12 ITALIC of oWord

oWord:OpenDoc("C:\SISTEMAS\MONGALO2\CONTRATO.DOC")
oWord:SetMainDoc()
oWord:SetCm()


mNombre := ALLTRIM(E->SUSCRIBE)
mCedula := ALLTRIM(E->CEDULA)
mEmpresa ...

... apli + "\docs\cazadores.doc"
case (ctbfcer)->tipocer = "Animales Peligrosos"
fichero:=cdi:vdir_apli + "\docs\cazadores.doc"
end case

oWord:OpenDoc(fichero)
oWord:Visualizar()
oword:replace("<NOMBRE>" ,alltrim((ctbfcer)->nompac))
oword:replace("<APELLIDOS>" ,alltrim((ctbfcer)->apepac ...

... GET
Args:
[ 1] = U
[ 2] = C MailMerge

Stack Calls
===========
Called from: source\rtl\tget.prg => GET(0)
Called from: => TWORD:OPENDOC(434)
Called from: d:\personal\perito32\Prg\facturas.prg => IMPRIME_FACTURA(269)
Called from: d:\personal\perito32\Prg\verfactura.prg ...

Gracias David.

Como verás así abro el documento y así intento hacerlo.

OpenDoc() me genera un error ya que me dice que no existe el método GET. Si nos vamos al método OpenDoc, vemos que en efecto ahí está el problema. Por eso pregunto si se debe enlazar alguan librería que no tengo en mi ...

Perdona Ramón por no incluir el código. Ahí va:


Function Imprime_Factura(aDatos)

LOCAL oWord

oWord:=Tword():New()
oWord:OpenDoc("c:\Usuarios\Fernando\Documentos\Facturas CEFER.DOC")
oWord:Replace("[fecha]", aDatos[6])
oWord:Replace("[factura]",aDatos[5])
oWord:Preview()
oWord:End(.F.)
Return ...

... GET
Args:
[ 1] = U
[ 2] = C MailMerge

Stack Calls
===========
Called from: source\rtl\tget.prg => GET(0)
Called from: => TWORD:OPENDOC(434)
Called from: d:\personal\perito32\Prg\facturas.prg => IMPRIME_FACTURA(269)
Called from: d:\personal\perito32\Prg\verfactura.prg ...

... oFont2 NAME "Tahoma" SIZE 0,-12 ITALIC of oWord

/*
este esl documento primario donde tengo entre corchetes los campos a reemplazar */

oWord:OpenDoc("C:\DATA1\SALARIO1.DOC")
oWord:SetCm()

oWord:Replace([Nombre1],mCodigo+"-"+mNombre)
oWord:replace([Fing],mCarrera)
oWord:replace([Mcargo ...

... prg => TOLEAUTO:DOCUMENTS(0)
Called from: => HB_EXECFROMARRAY(0)
Called from: win32ole.prg => TOLEAUTO:GET(397)
Called from: tword.prg => TWORD:OPENDOC(429)
Called from: socios.prg => FUSIONWORD(1140)


Aquí dejo el trozo de código que uso por si alguien me puede ayudar:



IF FILE &#40 ...

... preencher uno formulario word, utilizo uno dbf temporario con mergefild en los campos do word, ao invocar utilizo:

oWord := TWord():New()
oWord:OpenDoc( cModelo )
oWord:OpenDataSource( cArquivo )
oWord:oMailMerge:Invoke( "Execute" )
oWord:Visualizar()

Me abre 2 arquivos RECIBO.DOT e otro com los ...

... preencher uno formulario word, utilizo uno dbf temporario con mergefild en los campos do word, ao invocar utilizo:

oWord := TWord():New()
oWord:OpenDoc( cModelo )
oWord:OpenDataSource( cArquivo )
oWord:oMailMerge:Invoke( "Execute" )
oWord:Visualizar()

Me abre 2 arquivos RECIBO.DOT e otro com los ...

... preencher uno formulario word, utilizo uno dbf temporario con mergefild en los campos do word, ao invocar utilizo:

oWord := TWord():New()
oWord:OpenDoc( cModelo )
oWord:OpenDataSource( cArquivo )
oWord:oMailMerge:Invoke( "Execute" )
oWord:Visualizar()

Me abre 2 arquivos RECIBO.DOT e otro com los ...

... cruta+'CARTAS\'+nCarta)
cArchivo := ALLTRIM(cruta+"GENONO.DBF")

// inicia OLE com Word
oWord := TWord():New() // inicia o objeto OLE Word
oWord:OpenDoc( cModelo ) // abre o documento modelo
oWord:OpenDataSource( cArchivo ) // abre o data source (contrato.dbf)
oWord:oMailMerge:Invoke( "Execute ...