|
Как вызвать макрос 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; ... |
|||
:
Нравится:
Не нравится:
|
|||
26.06.2017, 11:20 |
|
|
start [/forum/topic.php?fid=51&msg=39477566&tid=1877957]: |
0ms |
get settings: |
4ms |
get forum list: |
6ms |
check forum access: |
1ms |
check topic access: |
1ms |
track hit: |
39ms |
get topic data: |
3ms |
get forum data: |
1ms |
get page messages: |
66ms |
get tp. blocked users: |
0ms |
others: | 2683ms |
total: | 2804ms |
0 / 0 |