COM-Automation Word, Fusszeile löschen

[hoika]

Hallo,

ich versuche gerade krampfhaft, in einem Word-Dokument die Fusszeile zu löschen,
oder zumindestes den Inhalt.
Da ich den Inhalt nicht kenne, kann ich keines der Search&Replace-Bsp.-e benutzen.

Meine bisherigen Bemühungen seht ihr unten.
Klappt leider nicht ;(

Hat jemand einen Tip?

Danke


Heiko

PS: Späte Bindung benutze ich, um versionsunabhängiger zu sein.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  WordApp: OLEVariant;
  D      : OLEVariant;
  S      : OLEVariant;
  F      : OLEVariant;
  Range  : OLEVariant;
begin
  DeleteFile('c:\temp10\3.doc');

  try
    WordApp := CreateOLEObject('Word.Application');
  except
    on E: Exception do
    begin
      Exit;
    end;
  end;

  //WordApp.Visible:= False;

  WordApp.Documents.Open('c:\temp10\2.doc');

  D := WordApp.ActiveDocument;

  WordApp.ActiveWindow.ActivePane.View.SeekView := wdSeekPrimaryFooter;
  WordApp.Selection.Select;
  WordApp.Selection.Text := '';
Clear ??
Range ??

  WordApp.Selection.Font.Size := 20;
  WordApp.Selection.TypeText('Seite ');

(*
  S := D.Sections[1];
  F := S.Footers(1);
  Range := F.Range;

  Range.Select;
  Range.Clear;
*)

  WordApp.ActiveDocument.SaveAs('c:\temp10\3.doc');

  WordApp.Quit;
  WordApp := Unassigned;
end;