Word: mit Ole Fußzeile erstellen

[moppedfahrer]

Moin moin,
Ich würde gerne über die ole Automation von Word eine Fußzeile einfügen.
Ich habe mir in Word das Makro dazu aufgezeichnet, aber AttachedTemplate wird von delphi nicht erkannt ?! Weiß jemand wie man das lösen könnte ?

Das Makro sieht folgendermaßen aus:

Delphi-Quellcode:

WordBasic.ViewFooterOnly
ActiveDocument.AttachedTemplate.BuildingBlockEntries(" Leer").Insert Where _
        :=Selection.Range, RichText:=True

Bin für jede Hilfe dankbar :-D

[omata]

Delphi-Quellcode:

  try
    WordApplication.Connect;
    WordApplication.Visible:=true;
    WordApplication.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
    WordApplication.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageFooter;
    WordApplication.Selection.TypeText('Dies ist meine neue Fusszeile.');
    WordApplication.ActiveWindow.ActivePane.View.SeekView:=wdSeekMainDocument;
  finally
    WordApplication.Disconnect;
  end;

[toms]

oder evtl. so: OleVariant(ActiveDocument).AttachedTemplate....

[moppedfahrer]

Super vielen Dank !!! :thumb: :thumb: :thumb: