How to run a VBA Macro by clicking Word 2010 Checkbox?

vba checkbox ms-word word-2010
Ingmar picture Ingmar · Jan 30, 2014 · Viewed 12.5k times · Source

I want to run a macro when I click a checkbox in Word 2010.

Note that I neither want the "Legacy Forms" checkbox nor the "ActiveX" ones! They do only work in some "protected document mode" and look ugly, but I want the new ones which can be selected and unselected just when you write the document, and which look much nicer to me.

I know, with the legacy forms, you can directly insert a Macro when entering the form element and one for leaving it, and you can catch the event in VBA like

Sub CheckboxXY_Click()

But that does not work with the Word 2010 checkboxes, even when I give them a description and a tag name.

Repeat: these are the forms I want to use (just in case somebody would advise me to use the Legacy ones):

Word 2010 checkbox

And that's how they look like in the document (with mouse hover):

enter image description here

I cannot believe that I was the first one who tried this...

Answer

IAWeir picture IAWeir · Feb 10, 2015

Make sure you go to the Document in your VBA Project and select "ContentControlOnEnter"

You will have to specify which contentcontrol you want by using something like ContentControl.Title to specify which checkbox activates which part of your code as shown in the example below. (I also put in code to verify that the checkbox is checked in the example)

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
    If (ContentControl.Title = "Checkbox1" And ContentControl.Checked = True) Then
        MsgBox "YAAY", vbOKOnly, "Test1"
    End If
    If (ContentControl.Title = "Checkbox2" And ContentControl.Checked = True) Then
        MsgBox "BOOO", vbOKOnly, "Test2!"
    End If
End Sub

Related questions

Unselect All CheckBoxes From Excel Workbook with VBA Macro

I have a workbook with over 100 checkboxes. They are form control checkboxes I would like to un-select them all at once that is set them to false. Sub clearcheck() ActiveSheet.CheckBoxes.Value = False End Sub This works for the active …

Read More
Uncheck all checkboxes across entire workbook via CommandButton

I would like to have a code that unchecks all checkboxes named "CheckBox1" for all sheets across the workbook. My current code unfortunately doesn't work, and I'm not sure why - it only works for the active sheet. Private Sub …

Read More
Is there a way to crack the password on an Excel VBA Project?

I've been asked to update some Excel 2003 macros, but the VBA projects are password protected, and it seems there's a lack of documentation... no-one knows the passwords. Is there a way of removing or cracking the password on a VBA …

Read More