// ------------------- التهيئة --------------------
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) ؛
// ----------------------------------------------- ------------------------------------------------- --------------------------
إذا OC.State في [osuiactive] ثم
يبدأ
OC.OleObjectInterface.queryInterface (ioleinplaceObject ، ioo) ؛
ioo.uideactive ؛
ioo: = nil ؛
نهاية؛
// ----------------------------------------------- ------------------------------------------------- -------------------------
wapp.selection.goto (ماذا: = wdgotobookmark ، الاسم: = 'zczd'+inttoStr (i)) ؛
wapp.selection.tepetext ('■')
// ----------------------------------------------- ------------------------------------------------- -------------------------
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.active.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.tepetext (النص: = 'certification `task`book')
آخر
wapp.selection.tepetext (النص: = "كتاب المهام الفاشل") ؛
wapp.activewindow.activepane.view.seekview: = wdseekmaindocument ؛