Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Oracle Forms Новый топик    Ответить
 Как вызвать макрос word?  [new]
Белка0402
Member

Откуда:
Сообщений: 5
Помогите, пожалуйста, не могу понять как вызвать макрос.
Есть макрос.
Я хочу, что бы по кнопке открывался документ и заполнялись поля, а потом вставлялась табл с определенным количеством строк и столбцов. Что я не правильно пишу?
declare
args ole2.list_type;
appHandle ole2.obj_type;
DocumentsCollection ole2.obj_type;
myDocument ole2.obj_type;
myOptions OLE2.OBJ_TYPE;
objrows OLE2.OBJ_TYPE;
a ole2.list_type;

fname varchar2(100):='d:\RASM_SPOR\nedost_otch_polog_3.dot';
filename varchar2(100);
alert_id alert:= Find_alert ('Alert_caution');
alert_val number;
FileExp varchar2(100);
period varchar2(100);
act_type varchar2(100);
num_file number:=1;

re_name varchar2(1000);
obr varchar(500);

begin
appHandle := OLE2.Create_Obj('Word.Application');
DocumentsCollection:=ole2.Get_Obj_Property( appHandle, 'Documents' );
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(Args,fname);
myDocument:=OLE2.INVOKE_OBJ(DocumentsCollection, 'Add',args);

OLE2.DESTROY_ARGLIST(Args);

SetItemText('date_resh',myDocument,'îò 06 ìàðòà 2017');

a:=ole2.create_arglist;
ole2.add_arg(a, 'Ìàêðîñ1');
ole2.invoke(myDocument, 'Run', a);
ole2.destroy_arglist(a);

ole2.set_Property( appHandle, 'Visible', 1 );
ole2.set_Property( myDocument, 'Save', 1 );

ole2.release_obj( DocumentsCollection );
ole2.release_obj( myDocument );
ole2.release_obj( appHandle );



end;

К сообщению приложен файл. Размер - 126Kb
26 июн 17, 11:20    [20590024]     Ответить | Цитировать Сообщить модератору
 Re: Как вызвать макрос word?  [new]
Белка0402
Member

Откуда:
Сообщений: 5
разобралась.
26 июн 17, 16:41    [20591302]     Ответить | Цитировать Сообщить модератору
Все форумы / Oracle Forms Ответить