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