// ------------------- Inicialización --------------------
varilla
wapp, trabajo: variante;
intentar
wapp: = getactiveOnObject ('word.application');
excepto
wapp: = createOleObject ('word.application');
fin;
// ------------------------------------------------ -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -----
wapp.selection.find.text: = '<%a2%>';
wapp.selection.find.replacation.text: = lb;
wapp.selection.find.execute (reemplazar: = wDrePlaceall);
// ------------------------------------------------ -------------------------------------------------- ----------------------------
Si oc.state en [OsuiActive] entonces
Comenzar
OC.OleObjectInterface.QueryInterface (IOLEINPLECEOBJECT, IOO);
Ioo.uideActivate;
Ioo: = nil;
fin;
// ------------------------------------------------ -------------------------------------------------- ---------------------------
wapp.selection.goto (What: = wdGotobookmark, nombre: = 'zczd'+intToStr (i));
wapp.selection.typetext ('■')
// ------------------------------------------------ -------------------------------------------------- ---------------------------
wapp.selection.goto (qué: = wdgotopage, que: = wdgotonext, nombre: = 'flag');
Si wapp.activewindow.view.splitspecial <> wdpanenone entonces entonces
wapp.activewindow.panes (2) .clare;
If (wapp.activewindow.activepane.view.type = wdnormalview) o (wapp.activewindow.activepane.view.type = wdoutlineview) entonces
wapp.activewindow.activepane.view.type: = wdprintview;
wapp.activewindow.activepane.view.seekview: = wdseekcurrentPageHeader;
wapp.selection.paragraphformat.borders.item (wdborderleft) .linestyle: = wdlinestylenone;
wapp.selection.paragraphformat.borders.item (wdborderright) .linestyle: = wdlinestylenone;
wapp.selection.paragraphformat.borders.item (wdbordertop) .linestyle: = wdlinestylenone;
wapp.selection.paragraphformat.borders.item (wdborderbottom) .linestyle: = wdlinestylenone;
wapp.activewindow.activepane.view.seekview: = wdseekcurrentPageFooter;
wapp.selection.Paragraphformat.alignment: = wdalignparagraphright;
if (dm.xm_ds.fieldbyname ('tg_flag'). asinteger = 2) y (dm.xm_ds.fieldbyname ('tj_flag'). asinteger = 0) Entonces
wapp.selection.typetext (text: = 'certification`task`book')
demás
wapp.selection.typetext (texto: = 'Libro de tareas fallido');
wapp.activewindow.activepane.view.seekview: = wdseekmaindocument;