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

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

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

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

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

... el m‚todo: 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 ...

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

... el m‚todo: 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 => ...

... FONT 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],mCargo) ...

... 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 (cRutaDoc) ...

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

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

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

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