Mehrere Wissenspunkte über Delphi Betriebswrod

//-------------------Initialisierung--------------------

var

Wapp, Arbeit: Variante;

versuchen

WAPP: = getActiveObject ('Word.Application');

außer

WAPP: = CREATEOLOBJECT ('Word.Application');

Ende;

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

Wapp.Selection.find.text: = '<%A2%>';

Wapp.Selection.find.replacement.text: = lb;

wapp.Selection.find.execute (ersetzen: = wdreplaceall);

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

Wenn OC.State in [OsuiaCtive] dann dann

Beginnen

OC.OlObjectInterface.QueryInterface (IoleinplaceObject, IOO);

IOO.UIDEACTIVATE;

IOO: = NIL;

Ende;

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

wapp.Selection.goto (was: = wdgotobookmark, Name: = 'zczd'+inttoStr (i));

Wapp.Selection.tyPext ('■')

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

wapp.Selection.goto (was: = wdgotopage, was: = wdgotonext, Name: = 'Flag');

Wenn wapp.activewindow.view.splitspecial <> WDPanenon dann dann

Wapp.activeWindow.Panes (2) .CLOSE;

If (wapp.activewindow.activePane.view.type = wdnormalview) oder (wapp.activewindow.activePane.view.type = wdoutLineView), dann)

wapp.activeWindow.activePane.view.type: = wdprintView;

Wapp.activeWindow.activePane.view.seekview: = wdseekCurrentPageHeader;

Wapp.Selection.PARAGRAPHFORMAT.BORTERS.ITEM (WDBORDSLEFT) .LINESTYLE: = WDLINESTYLENON;

Wapp.Selection.PARAGRAPHFORMAT.BORTERS.ITEM (WDBORDRIGHT) .LINESTYLE: = WDLINESTYLENON;

Wapp.Selection.PARAGRAPHFORMAT.BORTERS.ITEM (WDBORDTOP) .LINESTYLE: = WDLINESTYLENON;

Wapp.Selection.PARAGRAPHFORMAT.BORTERS.ITEM (WDBORDEBOTTOM) .LINESTYLE: = WDLINESTYLENON;

Wapp.activeWindow.activePane.view.seekview: = wdseekCurrentPageFoterer;

Wapp.Selection.PARAGRAPHFORMAT.ALGNMENT: = WDAGIGNPARAGRAPHRIFT;

if (dm.xm_ds.fieldbyName ('Tg_flag'). Assinger = 2) und (dm.xm_ds.fieldbyName ('tj_flag').

Wapp.Selection.tyPext (Text: = 'Certification`task`book')

anders

Wapp.Selection.TyPext (Text: = 'Fehlgeschlagenes Taskbuch');

Wapp.activeWindow.activePane.view.seekview: = wdseekMaindocument;