Word: mit Ole Fußzeile erstellen

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