Imprimir página | Cerrar ventana

Activar una casilla de verificación

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Word
Descripción del foro: Foro de Word
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86106
Fecha de impresión: 24/Abril/2024 a las 05:23


Tema: Activar una casilla de verificación
Publicado por: MILGUAKI
Asunto: Activar una casilla de verificación
Fecha de publicación: 09/Septiembre/2021 a las 11:38
Buenas a todos.

Mi problema es el siguiente: ( Bueno, uno de ellos Wink)

Estoy haciendo un formulario para que rellenar un documento.

En el documento hay varias calillas de verificación.

Es posible activar una casilla de verificación en un documento Word, al marcar un checkbox en un formulario vba??

Me refiero algo como :

En el formulario que el usuario marque en una casilla si es hombre o mujer, y que al marcar se active la casilla correspondiente en el documento Word.

Gracias 



Respuestas:
Publicado por: prga
Fecha de publicación: 09/Septiembre/2021 a las 13:09
Hola.
Sí he entendido bien, supongamos que tenemos una casilla de ve verificación en el formulario word y un checkbox en un "userform" i que tienen exactamente el mismo nombre( sensible a mayúsculas y minúsculas), Etiqueta(tag) en la casilla y name en el userform.
Sí es así, el siguiente código colocado en el userform

Private Sub CheckBox1_AfterUpdate()
Dim nn As ContentControl
For Each nn In ActiveDocument.ContentControls
  If nn.Type = wdContentControlCheckBox Then
    If nn.Tag = Me.ActiveControl.Name Then
       nn.Checked = Me.ActiveControl
       Exit For
    End If
  End If
Next
End Sub

Solucionaría el problema.
El código está a título de ejemplo y tiene falta de optimizar, comprobar etc etc
Espero que al menos sirva para ayudar a solucionar el problema
Ya comentas.
Un saludo a todos




Imprimir página | Cerrar ventana