I didn't test those and I suppose they work, but I don't see the point of strCheckBoxName or bCheckBoxValue or rngCheckBoxSlct??
Code:
Sub Test()
Dim lngIndex As Long
Dim oFld As FormField
If Not ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Unprotect Password:=""
End If
For lngIndex = ActiveDocument.FormFields.Count To 1 Step -1
Set oFld = ActiveDocument.FormFields(lngIndex)
If oFld.Type = wdFieldFormCheckBox Then
If oFld.CheckBox.Value = True Then
oFld.Range.Text = "1"
Else
oFld.Range.Text = "0"
End If
Else
oFld.Range.Text = oFld.Result
End If
Next
lbl_Exit:
Exit Sub
End Sub