.docx mit Office Xp Komponenten

[RWarnecke]

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 !!