// ------------------- การเริ่มต้น ------------------------
วาจา
wapp, work: variant;
พยายาม
WAPP: = getActiveOleObject ('Word.Application');
ยกเว้น
WAPP: = createOleObject ('Word.Application');
จบ;
-
wapp.selection.find.text: = '<%a2%>';
wapp.selection.find.replacement.text: = lb;
wapp.selection.find.execute (แทนที่: = 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.alignment: = wdalignparagraphright;
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;