// ------------------- 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;