Dieses Beispiel öffnet Word, schreibt einen Text ruft den Speichern-Dialog auf und nach dem Speichern wird Word wieder geschlossen.
Delphi-Quellcode:
type
TForm1 = class(TForm)
Btn_1: TButton;
WordApp_1: TWordApplication;
WordDoc_1: TWordDocument;
procedure Btn_1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
{...}
procedure TForm1.Btn_1Click(Sender: TObject);
begin
WordApp_1.Connect;
WordApp_1.Visible := True;
WordApp_1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
WordDoc_1.ConnectTo(WordApp_1.ActiveDocument);
WordApp_1.Selection.TypeText('Das ist ein Testdocument');
WordDoc_1.Save;
WordDoc_1.Disconnect;
WordApp_1.Quit;
end;
Es ist ein docx-Dokument. Den SaveAs-Befehl überlasse ich jetzt Dir. Good Night !!