(macro) Casilla de verificación en Word

Páginas:

        1   2  3   4   5   6   7

Sub cambiahombre()
 If ActiveDocument.FormFields("hombre").CheckBox.Value = True Then
  ActiveDocument.FormFields("hombre").CheckBox.Value = False
 End If
End Sub
----------
Sub cambiamujer()
 If ActiveDocument.FormFields("mujer").CheckBox.Value = True Then
  ActiveDocument.FormFields("mujer").CheckBox.Value = False
 End If
End Sub

(macro) Casilla de verificación en Word