Office: (Office 2010) Makro Speichern unter

Hallo
ich brauche ein Makro das mir ermöglicht ein Word Dokument mit automatischer Vorgabe des Speicherortes hier (C:Gewerbe) und der automatischen Übernahme von Fomulardaten aus dem Dokument zu speichern

Folgendes habe ich bis jetzt zusammengetragen. Allerdings fragt er das Makro bei jedem "Speichern unter" Befehl ab und es fehlt die Vorgabe des Speicherortes C:Gewerbe

Im Netz finde ich nix passendes oder ich bin zu blöd.

Sub Dateispeichernunter()

'Inhalt von Text und Nummer an Variablen übergeben
Name1 = ActiveDocument.FormFields("Name").Result
Straße1 = ActiveDocument.FormFields("Straße").Result
Ort1 = ActiveDocument.FormFields("Ort").Result
Tag1 = ActiveDocument.FormFields("Tag").Result
Set dlgSaveAs = Application.FileDialog( _
FileDialogType:=msoFileDialogSaveAs)
'Dateiname wird vorgeschlagen aus den Strings text und nummer
dlgSaveAs.InitialFileName = Name1 & "_" & Straße1 & "_" & Ort1 & "_" & Tag1
'Dialogfeld 'Speichern unter' anzeigen
dlgSaveAs.Show
dlgSaveAs.Execute
End Sub

 

Was meinst Du mit:

Wer fragt das Makro ab - wer ist 'er' ?!?

Warum setzt Du nicht die gewünschte Vorgabe des Speicherortes gleich mit in den '.InitialFileName':
dlgSaveAs.InitialFileName = "C:\Gewerbe\" & Name1 & "_" & Straße1 & "_" & Ort1 & "_" & Tag1

 

Hallo Karachi

oder mit

Code:

Dim pfad As String
pfad = "C:\Gewerbe\..." 

Deine Prozedur erweitern.

Gruß
JG.