Supportnet / Forum / Textverarbeitung
Makro; Datei speichern unter...
Frage
Hallo
Gerne möchte ich ein Makro aufzeichnen, welches aus einer Wordvorlage das Dokument abspeichert. Der Dateiname soll aus den auf dem Dokument vorhandenen zwei Textfelder (Name, Vorname) bestehen.. Der Zielordner (REKA) ist ebenfalls gegeben. Mit dem Makrorecorder komme ich definitiv an den Anschlag. Wer kann mir weiterhelfen?
Antwort 1 von _gau_
Könnte so aussehen:
Die Formularfelder (bzw. die ihnen zugeordneten Textmarken) heißen hier "Name" und "Vorname". Standardmäßig bezeichnet Word diese ja als "Text1", "Text2" usw.
Dateiname wäre dann z.B.: Müller-Peter.doc
[gau]
Sub Speichern()
Dim Pfad, Datei
Pfad = "X:\Pfad zum Ordner REKA\"
Datei = ActiveDocument.Bookmarks("Name").Range.Text & "-" & _
ActiveDocument.Bookmarks("Vorname").Range.Text & ".doc"
ActiveDocument.SaveAs Pfad & Datei
End SubDie Formularfelder (bzw. die ihnen zugeordneten Textmarken) heißen hier "Name" und "Vorname". Standardmäßig bezeichnet Word diese ja als "Text1", "Text2" usw.
Dateiname wäre dann z.B.: Müller-Peter.doc
[gau]
Antwort 2 von stefi
herzlichen dank gau
Es hat wunderbar geklappt. Da ich eigentlich keine Ahnung von VBA habe, bin ich sehr dankbar für deinen Tip.
Gruss aus der Schweiz
stefi
Es hat wunderbar geklappt. Da ich eigentlich keine Ahnung von VBA habe, bin ich sehr dankbar für deinen Tip.
Gruss aus der Schweiz
stefi