Use package OLE2 in Oracle

Question

Hi!
I try this codes but it have error...
Please check.
Thank you for help!
LAI THE THOI
declare
     application      ole2.obj_type;
     documents      ole2.obj_type;
     document      ole2.obj_type;
     Selection     ole2.obj_type;
     Tables_n     ole2.obj_type;
     Cols     ole2.obj_type;
     event     ole2.obj_type;
     arglist     ole2.list_type;
     ranges     ole2.obj_type;
BEGIN
-- CREATE OBJECTS ---
     application:=OLE2.CREATE_OBJ('Word.Application');
     OLE2.Set_Property(application,'Visible',true);
     OLE2.Set_Property(application,'WindowState',1);
     documents:=OLE2.get_obj_property(application, 'Documents');
     document:=OLE2.INVOKE_OBJ(documents,'Add');
     ole2.set_property(document,'FullName','Thống kj theo nguồn tin...');
     Selection:= ole2.get_obj_property(application,'Selection');
     Ranges := ole2.get_obj_property(Selection,'Range');
     Tables_n := ole2.get_obj_property(Selection,'Tables');
     arglist := ole2.create_arglist;
     ole2.add_arg_obj(arglist,Ranges);
     ole2.add_arg(arglist,3);
     ole2.add_arg(arglist,9);
     event := ole2.invoke_obj(tables_n,'Add',arglist);
     ole2.destroy_arglist(arglist);
-- Error
     arglist := ole2.create_arglist;
     ole2.add_arg(arglist,1);
     Tables_n := ole2.get_obj_property(selection,'Tables',arglist);
     ole2.destroy_arglist(arglist);
     arglist := ole2.create_arglist;
     ole2.add_arg(arglist,3);
     Cols := ole2.get_obj_property(Tables,'Columns',arglist);
     ole2.destroy_arglist(arglist);
-- RELEASE OBJECTS ---     
     ole2.release_obj(event);
     ole2.release_obj(tables_n);
     ole2.release_obj(Ranges);
     ole2.release_obj(Selection);
     ole2.release_obj(document);
     ole2.release_obj(documents);
     ole2.release_obj(application);
END;

Answer 1

Hi!
Thank you for help!
But it have error: ORA-305500.
Did you have solution?
LAI THE THOI
This code VBScript:
Set Cols := Selection.tables(1).Columns(3)
This code Ole2:
application ole2.obj_type;
documents ole2.obj_type;
document ole2.obj_type;
Selection ole2.obj_type;
Tables_n ole2.obj_type;
Cols ole2.obj_type;
event ole2.obj_type;
arglist ole2.list_type;
ranges ole2.obj_type;
BEGIN
-- CREATE OBJECTS ---
application:=OLE2.CREATE_OBJ('Word.Application');
OLE2.Set_Property(application,'Visible',true);
OLE2.Set_Property(application,'WindowState',1);
documents:=OLE2.get_obj_property(application, 'Documents');
document:=OLE2.INVOKE_OBJ(documents,'Add');
Selection:= ole2.get_obj_property(application,'Selection');
Ranges := ole2.get_obj_property(Selection,'Range');
Tables_n := ole2.get_obj_property(Selection,'Tables');
arglist := ole2.create_arglist;
ole2.add_arg_obj(arglist,Ranges);
ole2.add_arg(arglist,3);
ole2.add_arg(arglist,9);
event := ole2.invoke_obj(tables_n,'Add',arglist);
ole2.destroy_arglist(arglist);
-- Error : ORA - 305500?
arglist := ole2.create_arglist;
ole2.add_arg(arglist,1);
Tables_n := ole2.get_obj_property(selection,'Tables',arglist);
ole2.destroy_arglist(arglist);
arglist := ole2.create_arglist;
ole2.add_arg(arglist,3);
Cols := ole2.get_obj_property(Tables_n,'Columns',arglist);
ole2.destroy_arglist(arglist);
-- RELEASE OBJECTS ---
ole2.release_obj(event);
ole2.release_obj(tables_n);
ole2.release_obj(Ranges);
ole2.release_obj(Selection);
ole2.release_obj(document);
ole2.release_obj(documents);
ole2.release_obj(application);
END;