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;