Varios puntos de conocimiento sobre Delphi operando WROD

// ------------------- 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;