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!
|