Hallo zusammen
Konnte das Problem selbstständig durch 1-2 YT Videos lösen. Ich habe hierfür einen CommandButton eingefügt und ihn "Reset" bennant, danach habe ich ein Makro zu diesem erstellt. Den CommandButton findet man bei den Entwicklertools und um das Makro zu setzen muss man in den Entworfsmodus und 2x auf den CommandButton klicken.
Hier ist der hierfür benötigte Command:
Private Sub Reset_Click()
question_clear = MsgBox("Sicher dass du die Checkliste leeren möchtest? ", vbYesNo + vbQuestion, "Question")
If question_clear = 7 Then Exit Sub
If question_clear = 6 Then
Dim aCC As ContentControl
For Each aCC In ActiveDocument.ContentControls
aCC.Range.Select
If aCC.Type <> wdContentControlDropdownList Then
aCC.Range.Text = ""
Else
aCC.Type = wdContentControlText
aCC.Range.Text = ""
aCC.Type = wdContentControlDropdownList
End If
Next aCC
End If
End Sub
Im Anhang ist noch ein Bild, um zu sehen wie das ganze dann im Word aussieht
LG Vito