Hallo Zusammen,

ich habe einen Button in meinem Word Doc mit folgendem Makro welches 1. Das Dokument als ein neues in einem eingegebenen Ordner abspeichern soll und zwar soll der Name aus 4 Kontrollelementen ausgefüllt werden. 2. Dokuemnt ohne speichern schliessen.

2. funktioniert aber 1. leider nicht. Könnt ihr mal prüfen was an meinem Code falsch ist?

___Code:____

Private Sub Speichern_Click()

'ContentControls initialize as Strings

Dim dateiname As String, CC1 As String, CC2 As String, CC3 As String, CC4 As String
 
 CC1 = ActiveDocument.SelectContentControlsByTag("CC1").Item(1).Range.Text
 CC2 = ActiveDocument.SelectContentControlsByTag("CC2").Item(1).Range.Text
 CC3 = ActiveDocument.SelectContentControlsByTag("CC3").Item(1).Range.Text
 CC4 = ActiveDocument.SelectContentControlsByTag("CC4").Item(1).Range.Text
 
'Contentcontrols initialize as dateiname
  dateiname = CC1 & "_" & CC2 & "_" & CC3 & "_" & CC4
    
'Save in a specific folder

    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:\Users\schmidim\Desktop\Test Makro\2020\" & dateiname
    End With

'Close open Document and don't Save
 Application.Quit wdDoNotSaveChanges
       
End Sub

__________

die Kontrollelemente im Dokument habe ich die Tags gem. Code (CC1, CC2 etc.) angepasst. Leider schliesst das Dokument nur wenn ich das Makro ausführe.

Danke!