Vários pontos de conhecimento sobre a Delphi Operating Wrod

// --------------------- Inicialização --------------------

var

wapp, trabalho: variante;

tentar

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

exceto

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

fim;

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

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

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

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

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

se ococ.

Começar

OC.oleObjectInterface.QueryInterface (ioleinplaceObject, ioo);

Ioo.uideActivate;

Ioo: = nil;

fim;

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

wapp.selection.goto (o que: = wdgotobookmark, nome: = 'zczd'+inttostr (i));

wapp.selection.typetext ('■')

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

wapp.selection.goto (o que: = wdgotopage, que: = wdgotonext, nome: = 'sinalizador');

Se wapp.activewindow.view.splitspecial <> wdpanenone então

wapp.activewindow.panes (2) .close;

If (wapp.activewindow.activePane.View.type = wdnormalView) ou (wapp.activewindow.activePane.View.type = wdoutlineView) então

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) e (dm.xm_ds.fieldbyname ('tj_flag'). Asinteger = 0) então

wapp.selection.typetext (texto: = 'certificação`Task`Book')

outro

wapp.selection.typetext (texto: = 'Livro de tarefas com falha');

wapp.activewindow.activePane.View.seekView: = wdseekmaindocument;