Sumar valores true i false de la casilla de verificacion

Tux escribió el 05/12/2007 23:27 :

hola tomas :)

resultado de los
activados me lo diera en la celda final de totales con un número, ya
que no me sirve el msgbox.

No dupliques las preguntas que luego es un caos a la hora de
encontrarlas y quedan todas sueltas :-)

Bien prueba con la siguiente modificacion:

Y comentanos cualquier duda ?


'- modificacion codigo

'[]

Sub contar_checkbox_document()

Dim x As Long, y As Long

On Error Resume Next

ActiveDocument.Unprotect ("111")

With ActiveDocument

For x = 1 To .FormFields.Count
If .FormFields(x).Type = wdFieldFormCheckBox Then
If .FormFields(x).CheckBox.Value = True Then y = y + 1

End If

Next x
'MsgBox "hay " & y & " " & " checkboxes
activados :D "
Selection.Tables(1).Cell(10, 1).Range.Text = y

End With

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True, Password:="111"

End Sub

'[]

Hola Srta. quiero ayuda desesperadamente. tengo el mismo problema del otro compañero...
Resulta que quiero sumar en Word, todos las casillas de verificación activadas. Son 16 casillas.
Ya lo logré en Excel, e inclusive la tabla de Excel la pude insertar en Word, solo que al salirme de la tabla, cuando ya está en Word, se sale del modo de selección de las casillas. Esto es, que yo envío a mis clientes el archivo y ellos seleccionan los servicios que requieren... al seleccionarlos, se van sumando las cantidades de cada servicio seleccionado. Me duele la cabeza. jaja ya intenté varias opciones, aunque me doy cuenta que les has pasado unas formulas o no se que es eso, además de que no se donde copiarlos. Ayudame por favor. Si tienes un e-mail o Facebook sería mas fácil.