Beberapa poin pengetahuan tentang wrod operasi delphi

// ------------------- Inisialisasi --------------------

var

wapp, bekerja: varian;

mencoba

wapp: = getactiveoleObject ('word.application');

kecuali

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

akhir;

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

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

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

wapp.selection.find.execute (ganti: = wdreplaceall);

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

Jika oc.state di [osuiactive] maka

Mulai

Oc.oleObjectInterface.QueryInterface (IoleinPlaceObject, IOO);

Ioo.uideactivate;

IOO: = nil;

akhir;

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

wapp.selection.goto (apa: = wdgotoBookmark, nama: = 'zczd'+inttoStr (i));

wapp.selection.typetext ('■')

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

wapp.selection.goto (apa: = wdgotopage, yang: = wdgotonext, nama: = 'flag');

Jika wapp.activeWindow.view.splitspecial <> wdpanenone

wapp.activeWindow.panes (2) .close;

If (wapp.activeWindow.activePane.view.type = wdnormalview) atau (wapp.activeWindow.activePane.view.type = wDoutLineView) kemudian

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: = wdalignaragraphright;

if (dm.xm_ds.fieldbyname ('tg_flag'). asInteger = 2) dan (dm.xm_ds.fieldbyname ('tj_flag'). asInteger = 0) lalu

wapp.selection.typetext (teks: = 'sertifikasi`task`book')

kalau tidak

wapp.selection.typetext (teks: = 'Buku Tugas Gagal');

wapp.activeWindow.activePane.view.seekview: = wdseekmaindocument;