Sub Test()

Dim rngCheckBoxSlct As Range
Dim strCheckBoxName As String
Dim bCheckBoxValue As Boolean
Dim oFld As FormField

    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Unprotect Password:=""
    End If

    For Each oFld In ActiveDocument.FormFields
        If oFld.Type = wdFieldFormCheckBox Then
            strCheckBoxName = oFld.Name
            bCheckBoxValue = oFld.CheckBox.value
            Set rngCheckBoxSlct = oFld.Range
            If bCheckBoxValue = True Then
                rngCheckBoxSlct.Text = "1"
            Else
                rngCheckBoxSlct.Text = "0"
            End If
        End If
    Next oFld
End Sub