como abrir un documento de office, la clave se me
Publicado por hernan galopino alberca (1 intervención) el 01/10/2005 20:48:42
como abrir un documento de office, la clave se
me olvido o sea se ha perdido la clave y no me
acuerdo y deseo romper dicha clave abriendo el
documento desde power builder.
este codigo es para abrir un documento de
office que tiene clave.
lo descarge de los foros de sybase en
castellano.
ojala ruben pillaca de peru o cualquier goru de power me pueda apoyar
pueda arreglar este .
problema responderme lo mas pronto posible y
mil disculpa los email
[email protected],
[email protected]
oleobject ole_obj
long ll_res
constant int wdOpenFormatAuto = 0
constant long msoEncodingAutoDetect = 50001
/*
Fichero de ayuda para office 2000 "unidad activa:\Archivos de
programa\Microsoft
Office\Office\3082\Vbawrd9.chm"
*/
/* fichero de ayuda para office xp
unidad activa :\Archivos de programa\Microsoft Office\Office10\3082\WDMAIN10.CHM
*/
ole_obj = create oleobject
ole_obj.ConnectToNewObject("word.application")
ole_obj.visible = 1 // make visible
//as_passwordDocument = 'MiContraseñaParaAbrir' // no se debe de
//codificar ya se dese romper la clave desde power
//ole_obj.documents.Open('C:\TEST\test.doc')
This.Documents.Open('C:\TEST\test.doc', false,
true, false,as_passwordDocument,'',
false,'','',
wdOpenFormatAuto,msoEncodingAutoDetect,true)
//ole_obj.document.ProtectDocument()
ole_obj.ActiveDocument.CheckSpelling()
ole_obj.DisconnectObject()
me olvido o sea se ha perdido la clave y no me
acuerdo y deseo romper dicha clave abriendo el
documento desde power builder.
este codigo es para abrir un documento de
office que tiene clave.
lo descarge de los foros de sybase en
castellano.
ojala ruben pillaca de peru o cualquier goru de power me pueda apoyar
pueda arreglar este .
problema responderme lo mas pronto posible y
mil disculpa los email
[email protected],
[email protected]
oleobject ole_obj
long ll_res
constant int wdOpenFormatAuto = 0
constant long msoEncodingAutoDetect = 50001
/*
Fichero de ayuda para office 2000 "unidad activa:\Archivos de
programa\Microsoft
Office\Office\3082\Vbawrd9.chm"
*/
/* fichero de ayuda para office xp
unidad activa :\Archivos de programa\Microsoft Office\Office10\3082\WDMAIN10.CHM
*/
ole_obj = create oleobject
ole_obj.ConnectToNewObject("word.application")
ole_obj.visible = 1 // make visible
//as_passwordDocument = 'MiContraseñaParaAbrir' // no se debe de
//codificar ya se dese romper la clave desde power
//ole_obj.documents.Open('C:\TEST\test.doc')
This.Documents.Open('C:\TEST\test.doc', false,
true, false,as_passwordDocument,'',
false,'','',
wdOpenFormatAuto,msoEncodingAutoDetect,true)
//ole_obj.document.ProtectDocument()
ole_obj.ActiveDocument.CheckSpelling()
ole_obj.DisconnectObject()
Valora esta pregunta
0