Kontrollkästchensteuerelement automatisch überprüfen

  • Word

    Kontrollkästchensteuerelement automatisch überprüfen

    Hallo,

    ich habe in meiner Word Datei ein Kontrollkästchensteuerelement hinzugefügt. Dieses habe ich mit dem Tag checkbox versehen. Ich möchte nun automatisch überprüfen, ob sich der Wert verändert hat, bzw. ich möchte etwas tuen wenn der Wert True ist.
    Für dieses Problem bin ich auf folgenden Quellcode gestoßen:

    Visual Basic-Quellcode

    1. Private Sub Document_ContentControlOnExit(ByVal kk As ContentControl, Cancel As Boolean)
    2. With ActiveDocument
    3. If kk.Tag = "checkbox" Then
    4. If kk.Checked = True Then
    5. MsgBox kk.Tag & " ist aktiviert"
    6. Else
    7. MsgBox kk.Tag & " ist Deaktiviert"
    8. End If
    9. End If
    10. End With
    11. End Sub


    Doch leider passiert nichts.

    Um zu überprüfen ob das Steuerelement in dieser weise überhaupt angesprochen werden kann, habe ich test weise die folgende sub geschrieben:

    Visual Basic-Quellcode

    1. Sub test()
    2. Dim i As Integer
    3. For i = 1 To ActiveDocument.ContentControls.Count
    4. If ActiveDocument.ContentControls.Item(i).Tag = "checkbox" Then
    5. If ActiveDocument.ContentControls.Item(i).Checked = True Then
    6. MsgBox "true"
    7. Else
    8. MsgBox "False"
    9. End If
    10. End If
    11. Next i
    12. End Sub


    Diese funktioniert einwandfrei. Also scheint es wohl daran zu liegen, dass er das Event für das Auslösen, bzw. für das Verlassen, des Kontrollkästchen nicht realisiert.
    Ich hoffe jemand kann mir helfen.

    Gruß
    KronSii


    EDIT: Die Sub in einem Modul abzuspeichern ist natürlich wenig klug. :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „KronSii“ ()