델파이 운영 WROD에 대한 몇 가지 지식

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

var

WAPP, 작업 : 변형;

노력하다

wapp : = getActiveOleObject ( 'Word.application');

제외하고

wapp : = createoleObject ( 'Word.application');

끝;

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

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

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

wapp.selection.find.execute (대체 : = wdreplaceall);

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

[osuiactive]에서 oc.state라면

시작하다

OC.OleoBjectInterface.QueryInterface (ioleinplaceObject, IOO);

ioo.uideactivate;

ioo : = nil;

끝;

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

wapp.selection.goto (wit : = wdgotobookmark, name : = 'zczd'+inttostr (i));

wapp.selection.typetext ( '■')

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

wapp.selection.goto (what : = wdgotopage, whice : = wdgotonext, name : = '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.alignment : = wdalignparagraphright;

if (dm.xm_ds.fieldByName ( 'tg_flag'). Asinteger = 2) 및 (dm.xm_ds.fieldbyName ( 'tj_flag'). Asinteger = 0)

wapp.selection.typetext (text : = '인증이 아닌 Task`Book')

또 다른

wapp.selection.typetext (text : = '실패한 작업 책');

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