Несколько знаний о Delphi Operating Wrod

// ------------------- Инициализация ----------------------

вар

WAPP, работа: вариант;

пытаться

wapp: = getactiveobject ('word.application');

кроме

wapp: = createoleobject ('word.application');

конец;

// ------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------

wapp.selection.find.text: = '<%a2%>';

wapp.selection.find.replacement.text: = lb;

wapp.selection.find.execute (replace: = wdreplaceall);

// ------------------------------------------------ ------------------------------------------------------ ----------------------------

Если oc.state в [osuiactive], то тогда

Начинать

Oc.oleobjectInterface.queryInterface (ioleinplaceObject, iOO);

Ioo.uideActivate;

Ioo: = nil;

конец;

// ------------------------------------------------ ------------------------------------------------------ ---------------------------

wapp.selection.goto (что: = wdgotobookmark, имя: = 'zczd'+inttoStr (i));

wapp.selection.typetext ('■')

// ------------------------------------------------ ------------------------------------------------------ ---------------------------

wapp.selection.goto (что: = wdgotopage, который: = wdgotonext, имя: = 'flag');

Если wapp.activewindow.view.splitspecial <> wdpanenone тогда

wapp.activewindow.panes (2) .close;

If (wapp.activewindow.activepane.view.type = wdnormalview) или (wapp.activewindow.activepane.view.type = wdoutlineview) тогда

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.salignment: = wdalignParagragraphright;

if (dm.xm_ds.fieldbyname ('tg_flag'). asinteger = 2) и (dm.xm_ds.fieldbyname ('tj_flag'). asinteger = 0) тогда

wapp.selection.typetext (text: = 'certification`task`book')

еще

wapp.selection.typetext (text: = 'неудачная книга задачи');

wapp.activewindow.activepane.view.seekview: = wdseekmaindocument;