Plusieurs points de connaissances sur Delphi opérant Wrod

// ------------------- Initialisation --------------------

var

Wapp, travail: variante;

essayer

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

sauf

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

fin;

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

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

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

wapp.selection.find.execcute (Remplacer: = wdeplaceALL);

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

Si OC.State dans [OSUIACTIVE]

Commencer

OC.OLEOBjectInterface.QueryInterface (ioleInplaceObject, ioo);

Ioo.uideActivate;

Ioo: = nil;

fin;

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

wapp.selection.goto (quoi: = wdgotobookmark, name: = 'zczd' + intToStr (i));

wapp.selection.typetext ('■')

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

wapp.selection.goto (quoi: = wdgotopage, qui: = wdgotonext, nom: = 'drapeau');

Si wapp.activewindow.view.splitspecial <> wdpanenone alors

wapp.activewindow.panes (2) .Close;

If (wapp.activewindow.activepane.view.type = wdnormalview) ou (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) .Lenestyle: = wdlinestylenone;

wapp.selection.ParagraphFormat.borders.item (wdbordertop) .Lenestyle: = wdlinestylenone;

wapp.selection.paragraphformat.borders.item (wdborderbottom) .Lenestyle: = wdlinestylenone;

wapp.activewindow.activepane.view.seekView: = wdseekCurrentPageFooter;

wapp.selection.ParagraphFormat.Alignment: = wdalignParagraphRight;

if (dm.xm_ds.fieldbyname ('tg_flag'). asInteger = 2) et (dm.xm_ds.fieldByName ('tj_flag').

wapp.selection.typeText (texte: = 'certification`task`book')

autre

wapp.selection.TypeText (texte: = 'échoué du livre de tâches');

wapp.activewindow.activepane.view.seekView: = wdseekmainDocument;