Sub Test()

    Dim strCheckBoxSlct As String
    Dim strCheckBoxName As String
    Dim strCheckBoxValue As String
    Dim i As Integer
    
    For i = 1 To ActiveDocument.FormFields.Count
        If ActiveDocument.FormFields(1).CheckBox Then
            strCheckBoxValue = ActiveDocument.FormFields(1).CheckBox.Value
            ActiveDocument.FormFields(1).Select
            If strCheckBoxValue = True Then
                Selection.TypeText "0"
            Else
                Selection.TypeText "1"
            End If
        End If
    Next
    
End Sub