Гость
Map
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / Как вызвать макрос word? / 2 сообщений из 2, страница 1 из 1
26.06.2017, 11:20
    #39477566
Белка0402
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать макрос word?
Помогите, пожалуйста, не могу понять как вызвать макрос.
Есть макрос.
Я хочу, что бы по кнопке открывался документ и заполнялись поля, а потом вставлялась табл с определенным количеством строк и столбцов. Что я не правильно пишу?
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;
...
Рейтинг: 0 / 0
26.06.2017, 16:41
    #39477813
Белка0402
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать макрос word?
разобралась.
...
Рейтинг: 0 / 0
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / Как вызвать макрос word? / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]