Experto en Forms 6i OLE2 (OFFICE)
Publicado por williams (142 intervenciones) el 23/09/2002 17:14:22
Saludos amigos
Estoy tratando de usar la biblioteca de oracle OLE2 para trabajar Forms y Word.
Lo que necesito es abrir un documento en el cual no se pueda hacer nada, es decir PROTEGIDO
Estoy usando el siguiente código. si pueden ayudarme a hacerlo de antemano gracias
Declare
aplication ole2.obj_type;
args ole2.list_type;
Begin
aplication := ole2.create_obj('Word.Basic.9');
ole2.invoque(aplication, 'AppShow');
args := ole2.create_arglist;
ole2.add_arg(args,'C:\Doc\My_Example.Doc');
ole2.invoque(aplication, 'FileOpen', args);
ole2.destroy:arglist(args);
--Aqui empieza el problena
--
--La macro que usa word es ActiveDocument.Protect Password :="123",
--NoReset:=False, Type:=wdAllowOnlyFormFields
args := ole2.create_arglist;
ole2.add_arg(args,'123');
ole2.add_arg(args,False);
ole2.add_arg(args,2);
ole2.invoque(aplication, 'Protect', args);
ole2.destroy:arglist(args);
ole2.release_obj(aplication);
End;
El resultado es que se muestra word se abre el documento
pero no esta protegido,
Si alguien sabe como hacerlo, se lo agradezco,
Estoy tratando de usar la biblioteca de oracle OLE2 para trabajar Forms y Word.
Lo que necesito es abrir un documento en el cual no se pueda hacer nada, es decir PROTEGIDO
Estoy usando el siguiente código. si pueden ayudarme a hacerlo de antemano gracias
Declare
aplication ole2.obj_type;
args ole2.list_type;
Begin
aplication := ole2.create_obj('Word.Basic.9');
ole2.invoque(aplication, 'AppShow');
args := ole2.create_arglist;
ole2.add_arg(args,'C:\Doc\My_Example.Doc');
ole2.invoque(aplication, 'FileOpen', args);
ole2.destroy:arglist(args);
--Aqui empieza el problena
--
--La macro que usa word es ActiveDocument.Protect Password :="123",
--NoReset:=False, Type:=wdAllowOnlyFormFields
args := ole2.create_arglist;
ole2.add_arg(args,'123');
ole2.add_arg(args,False);
ole2.add_arg(args,2);
ole2.invoque(aplication, 'Protect', args);
ole2.destroy:arglist(args);
ole2.release_obj(aplication);
End;
El resultado es que se muestra word se abre el documento
pero no esta protegido,
Si alguien sabe como hacerlo, se lo agradezco,
Valora esta pregunta


0