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

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):

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

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

Answers


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

Need Your Help

Notify user when session time out in asp.net

asp.net session

What is the best way to show a message to user after session is expired?

zumero: Xamarin Android. How to get a Android.Database.ICursor from a SQLiteConnection?

android sqlite xamarin zumero

Is there any way of how to get a Android.Database.ICursor or a Android.Database.Sqlite.SQLiteCursor from a Zumero_SQLite_Android.System.Data.SQLite.SQLiteConnection or SQLiteCommand to be used in a