Dim ctl As Control
Dim ff As FormField
Dim i As Integer
 
'Kontrollkästchen steuern
For Each ctl In Me.Controls
  If TypeOf ctl Is MSForms.CheckBox Then
    i = Val(Replace(ctl.Name, "CheckBox", ""))
   Set ff = ActiveDocument.FormFields("Kontrollkästchen" & i)
   ff.CheckBox.Value = ctl.Value
    End If
Next ctl