Page 1 of 1
Error al abrir un archivo RTF
Posted: Wed Jan 23, 2019 10:39 pm
by caducca
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?
Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 12:09 pm
by karinha
Code: Select all
[ 1] = C .\Notas\Notas2.RTF ???? Ruta no estpa erronea?
Saludos.
Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 12:13 pm
by karinha
Prueba a poner una llamada a MsgInfo() aqui para ver si llega:
oWord:Documents:Open( "c:\fwh\g\dbf\plantilla\DOCU.RTF" )
MsgInfo( "abierto" )
Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 9:35 pm
by caducca
Gracias por responder.
Si el Archivo si existe
Code: Select all
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
Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 9:37 pm
by cnavarro
Has de utilizar paths completos y absolutos
Re: Error al abrir un archivo RTF
Posted: Thu Jan 24, 2019 11:31 pm
by caducca
Ok, pero si es así no me sirve
Re: Error al abrir un archivo RTF
Posted: Fri Jan 25, 2019 11:27 pm
by cmsoft
El punto lo usas para decir donde estas posicionado, podes reemplazarlo con las funciones siguientes, asi obtenes el absoluto de donde estas posicionado.
Code: Select all
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
Re: Error al abrir un archivo RTF
Posted: Sat Jan 26, 2019 1:57 pm
by caducca
ok, ya lo pruebo, gracias
Re: Error al abrir un archivo RTF
Posted: Sun Jan 27, 2019 1:15 pm
by cnavarro
También
Code: Select all
cPathApp := cFilePath( GetModuleFileName( GetInstance() ) )