Word generieren des Dateinamens beim Speichern

[FoxOff]

Hallo alle zusammen,

ich wusste leider nicht, wohin genau ich das Thema eintrage, daher hoffe ich, dass dies hier passt. 

Nun zu meinem "Problem", was bestimmt super einfach zu Lösen ist, ich komme allerdings einfach nicht drauf und hoffe hier auf eine kleine Hilfe  
Ich habe eine Word Vorlage erstellt. Dieser möchte ich beim Speichern/Speichern unter einen automatischen Dateinamen geben. Der soll aus zwei Inhaltssteuerelementen (nur Text) bestehen. Zum einen aus dem "Dokumententitel" und "Dokumentennummer". Es sollte dann folgendermaßen aussehen: "Dokumentennummer_Dokumententitel"
Zusätzlich möchte ich dies gern automatisch in den Pfad xyz einspeichern. 

Und kann man dies dann so einrichten, dass diese Speichereinstellungen NUR für Dokumente aus der Vorlage bestehen und nicht Allgemein bei Word Dokumenten die man erstellt? 

Bearbeitet 16. Mai 2022 von FoxOff

[FoxOff]

Okey hat sich grade geklärt Hab die Lösung gefunden

[Chief Wiggum]

Hallo,

vor 11 Minuten schrieb FoxOff:

Hab die Lösung gefunden

Es gehört zum guten Ton in Fachforen, die anderen Nutzer dann auch an der Lösung teilhaben zu lassen. Wie hast du dein Problem lösen können?

 

[FoxOff]

vor 19 Minuten schrieb Chief Wiggum:

Hallo,

Es gehört zum guten Ton in Fachforen, die anderen Nutzer dann auch an der Lösung teilhaben zu lassen. Wie hast du dein Problem lösen können?

 

Ja das wollte ich jetzt noch nachtragen. Hatte nur eben einen Termin, weshalb ich nicht weiterschreiben konnte.

Mir hat folgendes geholfen: 
Ich habe die beiden Felder, die ich gerne als Dateinamen Generiert haben möchte als Inhaltssteuerelement ganz normal eingerichtet, also nur Text. Sollte aber auch Dropdown gehen und Co. 
Daraufhin bin ich auf dem Reiter im Menü "Entwicklertools" (müsste man sich vorher freischalten) und dort auf Makros gehen. Dann öffnet sich ein Fenster mit den vorhandenen Makros und dort kann man auch neue erstellen. 
Beim Neuen Makro erstellen habe ich dann folgendes eingegeben:

Sub FileSave()

Dim dateiname As String, teil1 As String, teil2 As String
Dim cc As Word.ContentControl
For Each cc In ActiveDocument.ContentControls
If cc.Title = "Dokumentennummer" Then teil1 = cc.Range.Text
If cc.Title = "Dokumententitel" Then teil2 = cc.Range.Text
Next
dateiname = teil1 & "_" & teil2
With Dialogs(wdDialogFileSaveAs)
.Name = "Pfad eingeben" & dateiname
.Show
End With

End Sub

Bei teil1 und teil2 müssten dann jeweils die gewünschten Namen des Steuerelements eingetragen werden (Auf Rechtschreibung und Groß/klein achten), sowie euer gewünschter Pfad, in dem dies direkt gespeichert werden soll. Dann Das Makro speichern und schließen. Dann hat es bei mir funktioniert. Das selbe dann noch für "Sub FileSaveAs" und fertig