Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
26.06.2017, 11:20
|
|||
---|---|---|---|
|
|||
Как вызвать макрос word? |
|||
#18+
Помогите, пожалуйста, не могу понять как вызвать макрос. Есть макрос. Я хочу, что бы по кнопке открывался документ и заполнялись поля, а потом вставлялась табл с определенным количеством строк и столбцов. Что я не правильно пишу? 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; ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=51&tablet=1&tid=1877957]: |
0ms |
get settings: |
16ms |
get forum list: |
5ms |
check forum access: |
1ms |
check topic access: |
1ms |
track hit: |
35ms |
get topic data: |
5ms |
get forum data: |
1ms |
get page messages: |
55ms |
get tp. blocked users: |
1ms |
others: | 362ms |
total: | 482ms |
0 / 0 |