Private
Sub
Speichern_Click()
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
dateiname = CC1 &
"_"
& CC2 &
"_"
& CC3 &
"_"
& CC4
Call
ThisDocument.SaveAs2(FileName:=
"C:\Users\Name\Desktop\Test Makro\2020\" & dateiname & "
.docm", FileFormat:=wdFormatXMLDocumentMacroEnabled)
End
Sub