topic-36664

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Error al abrir un archivo RTF
Posted: Wed Jan 23, 2019 10:39 PM

Hola grupo, al querer abrir un archivo RTF me arroja el siguiente error:

Path and name: D:\Programs\BancosNew\BancosXH2.Exe (32 bits)
Size: 1,368,064 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20161218)
FiveWin version: FWHX 17.03
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 23 secs
Error occurred at: 23/01/2019, 19:27:25
Error description: Error Word.Application:DOCUMENTS/9 'Item' no es una propiedad.: OPEN
Args:
[ 1] = C .\Notas\Notas2.RTF

Alguna pista?

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 12:09 PM

Code (fw): Select all Collapse

[ 1] = C .\Notas\Notas2.RTF  ???? Ruta no estpa erronea?

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 12:13 PM

Prueba a poner una llamada a MsgInfo() aqui para ver si llega:

oWord:Documents:Open( "c:\fwh\g\dbf\plantilla\DOCU.RTF" )

MsgInfo( "abierto" )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

caducca

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 09:35 PM

Gracias por responder.
Si el Archivo si existe

Code (fw): Select all Collapse

  cFichero:=".\Notas\Notas.RTF"
  If FILE(".\Notas\Notas.RTF")
     oWord := TOleAuto():New( "Word.Application" )
     oWord:Documents:Open(cFichero)
     oWord:Visible     := .T.
     oWord:WindowState := 1 // Maximize
 EndIf

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 09:37 PM

Has de utilizar paths completos y absolutos

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

caducca

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 11:31 PM

Ok, pero si es así no me sirve

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Error al abrir un archivo RTF
Posted: Fri Jan 25, 2019 11:27 PM

El punto lo usas para decir donde estas posicionado, podes reemplazarlo con las funciones siguientes, asi obtenes el absoluto de donde estas posicionado.

Code (fw): Select all Collapse

  cFichero:=hb_curDrive()+":\"+CurDir()+"\Notas\Notas.RTF"
  If FILE(cFichero)
     oWord := TOleAuto():New( "Word.Application" )
     oWord:Documents:Open(cFichero)
     oWord:Visible     := .T.
     oWord:WindowState := 1 // Maximize
 EndI

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

caducca

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Re: Error al abrir un archivo RTF
Posted: Sat Jan 26, 2019 01:57 PM

ok, ya lo pruebo, gracias

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Error al abrir un archivo RTF
Posted: Sun Jan 27, 2019 01:15 PM

También

Code (fw): Select all Collapse

   cPathApp        := cFilePath( GetModuleFileName( GetInstance() ) )

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion