Word Speicherpfad einstellen

[muenster]

Hi,

der Datenpfad muss explizit gesetzt werden:

Delphi-Quellcode:

procedure TForm1.WordDateiSpeichern();
var
  FileName,FileFormat,LockComments,Password,AddToRecentFiles,
  WritePassword,ReadOnlyRecommended,EmbedTrueTypeFonts,
  SaveNativePictureFormat,SaveFormsData,SaveAsAOCELetter : OleVariant;
begin
  WordApplication.ChangeFileOpenDirectory('C:\Daten\Test\');
  FileName := 'Testform';
  LockComments := False;
  Password := EmptyParam;
  AddToRecentFiles := True;
  WritePassword := EmptyParam;
  ReadOnlyRecommended := False;
  EmbedTrueTypeFonts :=False;
  SaveNativePictureFormat := False;
  SaveFormsData := False;
  SaveAsAOCELetter := False;
  WordApplication.ActiveDocument.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword,
               ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter);
end;

Beispiel ist für Office 2000