Word Dokument mit der save Methode speichern

[Iris Hausmann]

Ich möchte in meiner Delphi–Anwendung ein neues Dokument speichern.
Dazu benutze ich die Methode save. Da das Dokument neu ist bekomme ich den Speichern unter – Dialog.
Möchte ich jetzt (in diesem Dialog) mein Dokument in eine vorhandene Datei speichern geht das nicht.
Der Speicher-Button reagiert nicht. Ich kann sie nur als neue Datei abspeichern.
Ich benutze Delphi 5 und Word 97.
Gibt es dafür irgendeine Erklärung oder was mache ich falsch?

WordApp.Connect;
try
WordApp.Visible := TRUE;
WordApp.Activate;
aDokument := TempDatei;
NewTemplate := FALSE;
WordDoc.ConnectTo(WordApp.Documents.add(aDokument, NewTemplate) as _Document);
finally
end;

procedure TFmStamm.WordDocClose(Sender: TObject);
begin
WordDoc.save;
End;

[Andreas Kosch]

Hallo,

das Document-Objekt von Word stellt auch die Methode <b>SaveAs</b> bereit, bei der der Dateinamen sowie das Format als Parameter übergeben wird. Das könnte so aussehen:
<pre>
...
FWord : _Application; // Application-Objekt von Word 97
...
</pre>
<pre>
procedure TForm1.FormCreate(Sender: TObject);
begin
FWord := CoApplication_.Create;
FWord.Visible := True;
StatusBar1.SimpleText := FWord.Version;
end;
</pre>
<pre>
procedure TForm1.ButtonOpenClick(Sender: TObject);
var
vParam : OleVariant; // Parameter-Puffervariable
begin
// vorhandenes Dokument öffnen
vParam := 'C:\Ablage\Test1.doc';
FWord.Documents.Open(vParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam);
ShowMessage('Fertig');
end;
</pre>
<pre>
procedure TForm1.ButtonSaveAsClick(Sender: TObject);
begin
OleVariant(FWord).ActiveDocument.SaveAs(Filename := 'C:\Ablage\Test2.doc');
end;
</pre>

&#10

[Iris Hausmann]

Hallo Herr Kosch,

die SaveAs - Methode ist für meine Anwendung nicht geeignet, da der Anwender den Dateinamen vergeben soll.
Dafür möchte ich den ‚normalen‘ Speichern-unter-Dialog vom Word übernehmen. Mit dem neuen Pfad und Dateinamen wird dann in der Close-Methode weitergearbeitet. (Zuordnung in IB-Datenbank)