StringGrid + speichern

[bjacke]

Hallo,
ich habe das hier aus dem Internet gezogen (Ich glaube DelphiCenter Schweiz).
Der Quelltext sieht so aus:

Delphi-Quellcode:

uses ComObj;...

Delphi-Quellcode:

procedure TBear.FormClose(Sender: TObject; var Action: TCloseAction);
var
  WordApp, NewDoc, WordTable: OLEVariant;
  iRows, iCols, iGridRows, jGridCols: Integer;

Begin
try

    // Create a Word Instance
    // Word Instanz erzeugen
    WordApp := CreateOleObject('Word.Application');
  except
  //Fehler
    ShowMessage('Bitte überprüfen Sie ob Ms Word funktionsfähig auf ihrem Computer läuft!');
    Exit;
  end;

  // Word anzeigen
  WordApp.Visible := false;

  // Neues Dok einfügen
  NewDoc := WordApp.Documents.Add;

  // Spalten, Reihen ermitteln
  iCols := Grid3.ColCount;
  iRows := Grid3.RowCount;

  // Tabelle einfügen
  WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);
  iCols:= Grid3.ColCount;
  iRows:= Grid3.RowCount;
  // Tabelle ausfüllen mit Stringgrid Daten
  for iGridRows := 1 to iRows do
    for jGridCols := 1 to iCols do
      WordTable.Cell(iGridRows, jGridCols).Range.Text :=
        Grid3.Cells[jGridCols - 1, iGridRows - 1];

  // Hier evtl Word Doc speichern, beenden...

      WordApp.Quit(false);

end;

Ich habe schon mehreres ausprobiert,aber ich bekomme die Meldung, dass das bei Automatismen nicht möglich ist.
Z.B.: WordApp.Save('C:\test.doc') oder WordApp.SaveAs('C:\test.doc')
Ich bin echt verzweifelt,könnt ihr mir nicht weiterhelfen? :coder:

[Keldorn]

Hallo

was willst du auch bei der Application speichern ;). Du mußt ein Document ansprechen

Delphi-Quellcode:

newdoc.saveas(filename);
oder
wordapp.activedocument.savesas(filename);

Mfg Frank

[bjacke]

Danke,der zweite Punkt hat mein Problem gelöst :-).