COM-Automation Word, Fusszeile löschen

[EarlyBird]

Versuch es mal so:

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;

  D :=WordApp.Documents.Open('c:\temp10\2.doc');
  D.sections[1].footers[1].range.Delete;
  WordApp.ActiveDocument.SaveAs('c:\temp10\3.doc');

  WordApp.Quit;
  WordApp := Unassigned;
end;