Dateityp im "Speichern unter"-Dialog vorgeben

Hallo liebe Experten,
ich habe mal wieder eine Frage: Wie kann ich im "Speichern unter"-Dialog den Dateityp auf "*.doc" voreinstellen?
Das Problem ist, dass einige bei uns hier Office 2007 haben, andere 2003. Damit alle mit Office 2003 auch die mit 2007 gespeicherten Dateien öffnen können, muss die Datei in 2007 als *.xls abgespeichert werden und nicht als "*.xlsx" (Ich weiß, dass es einen Converter für 2003 gibt, das geht aber aus anderen Gründen nicht). Bis dieses Problem aufgetaucht ist, sah mein Code so aus:


With Application.Dialogs(wdDialogFileSaveAs)
.Name = Projektordner & "Lieferschein_" & LNummer
.Show
End With

Nun muss ich irgendwie ein ".Format=?" einfügen, schätze ich. Aber was muss an die Stelle des Fragezeichens schreiben? Ich weiß z.B., dass ".Format=100" in Word das Format "*.rtf" ist. Aber wo finde ich diese Nummern für die verschiedenen Formate/Dateitypen?
Hoffe, es kann jemand helfen!
Danke und Gruß,
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Yusuf,
im Grunde ist es egal, ob Excel oder Word. Es geht darum, per vba den Dialog "Speichern unter" aufzurufen und das Speicherformat/ den Dateitypen vorzugeben. Wenn ich den Dialog per vba aufrufe, ist bei 2007 standardmäßig das Format "*.docx" bzw. "*.xlsx" eingestellt und wenn der Nutzer dann einfach auf speichern klickt, dann können andere Nutzer mit 2003 die Datei nicht mehr öffnen. Deshalb möchte ich neben dem Speichernamen auch das Format im Dialog vorgeben. Der SaveAs-Befehl soll nicht voll automatisch aufgeführt werden, da der Speicherort durch den Benutzer manuell bestimmt werden muss. In Excel müsste der Code dazu ungefähr so aussehen und an der Stelle mit dem Fragezeichen fehlt mit der Befehl mit dem ich den Dateityp im Dialog auf "*.xls" ändere. Ich weiß, dass man hinter Format verschiedene Zahlen angeben kann, um den Dateityp zu verändern. Nur welche Zahl steht für "xls" oder halt für "doc", wenn man es in Word überträgt. Kann ich diese konstanten Zahlen irgendwo rausfinden?


With Application.Dialogs(xlDialogSaveAs)
.Name = Projektordner & "Lieferschein_" & LNummer
.FileFormat = wdFormatDocument
.Format=?
.Show
End With

Danke und Gruß,
Stefan

Beliebteste Forumthreads (12 Monate)

Dateityp im "Speichern unter"-Dialog vorgeben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateityp im "Speichern unter"-Dialog vorgeben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread