Hallo,
ich habe das hier aus dem Internet gezogen (Ich glaube DelphiCenter Schweiz).
Der Quelltext sieht so aus:
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?
