TWordDocument erwarteter Dateiendung ermitteln

[norwegen60]

Hallo zusammen,

ich öffne über TWordDocument eine Word-Dokumentvorlage (im Moment noch *.dot), fülle diese aus und speichere diese mit

Delphi-Quellcode:

sFileName := 'c:\tmp\test'
WordDocument1.SaveAs(sFileName, wdFormatDocument);

Das Dokument wird mit Office2007 als test.doc gespeichert
Wenn ich den Parameter auf WordDocument1.SaveAs(sFileName, 16); ändere, (16 ist lt. VBA der Paramerter wdFormatDocumentDefault, den Delphi XE10 aber nicht kennt), wird das Dokument als test.docx gespeichert.

Da ich automatisch speichere will ich vorher prüfen, ob die Datei schon existiert.
Gibt es eine Möglichkeit vor dem SavAs zu prüfen, mit welcher Dateiendung das Word-Dokument gespeichert werden wird?

Programmiert mit Delphi XE10
Soll funktionieren mit Office 2003 - ....

Grüße
Gerd

[bra]

https://msdn.microsoft.com/en-us/library/ff839952.aspx

Leider nein. Das Problem: Bei neueren Office-Versionen kann auch das Libre/OpenOffice-Format als Standard eingestellt sein, ich weiss aber nicht, ob wdFormatDocumentDefault dann auch auf das mappt.

[himitsu]

Zitat von bra:

Leider nein.

Knallt es (Exception/Fehlercode), wenn man explizit ein Format vor gibt (nicht Default), welches diese WordVersion nicht kennt?
Dann einfach bekannte Typen durchprobieren > docx speichern und wenn nicht geht, dann doc.

Oder in ein leeres TempVerzeichnis speichern und dann umkopieren.