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?
Error al abrir un archivo RTF
Re: Error al abrir un archivo RTF
Code: Select all
[ 1] = C .\Notas\Notas2.RTF ???? Ruta no estpa erronea?
João Santos - São Paulo - Brasil
Re: Error al abrir un archivo RTF
Prueba a poner una llamada a MsgInfo() aqui para ver si llega:
oWord:Documents:Open( "c:\fwh\g\dbf\plantilla\DOCU.RTF" )
MsgInfo( "abierto" )
oWord:Documents:Open( "c:\fwh\g\dbf\plantilla\DOCU.RTF" )
MsgInfo( "abierto" )
João Santos - São Paulo - Brasil
Re: Error al abrir un archivo RTF
Gracias por responder.
Si el Archivo si existe
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
Has de utilizar paths completos y absolutos
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Re: Error al abrir un archivo RTF
Ok, pero si es así no me sirve
Re: Error al abrir un archivo RTF
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
ok, ya lo pruebo, gracias
Re: Error al abrir un archivo RTF
También
Code: Select all
cPathApp := cFilePath( GetModuleFileName( GetInstance() ) )
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.