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

送分小仙女□ 提交于 2020-01-14 09:17:28

问题


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...


回答1:


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


来源:https://stackoverflow.com/questions/21456090/how-to-run-a-vba-macro-by-clicking-word-2010-checkbox

易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!