العديد من نقاط المعرفة حول دلفي تشغيلي

// ------------------- التهيئة --------------------

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 ؛