Office: Text durch anklicken einer Checkbox einfuegen

Servus,

ich moechte einen Vertrag in Word erstellen, bei dem, durch anklicken von Checkboxes bestimmte Klauseln eingefuegt oder geloescht werden sollen.

Schwieriges Thema bei dem mir bisher noch niemand weiterhelfen konnte.

Hoffe Ihr koennt das!

Gruss
KB

 

Hi,

erstmal: ist das ein Steuerelement aus der Steuerelement-Toolbox? Oder ist es eine Userform? Oder aus der Symbolleiste "Formular"?

Auf jeden Fall benötigst Du VBA. Dann musst du noch am besten eine Textmarke an der Stelle setzen, wo der Text eingefügt werden soll. Das sollte am besten ein Textformularfeld sein, sonst kannst du ihn nur schlecht wieder löschen.

Hier mal ein Codebeispiel für ein Steuerelement aus der Steuerelement-Toolbox:

Code:

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
    If ActiveDocument.Bookmarks.Exists("Text1") Then
        ActiveDocument.FormFields("Text1").Result = "Dies ist ein Muster"
    End If
Else
    If ActiveDocument.Bookmarks.Exists("Text1") Then
        ActiveDocument.FormFields("Text1").Result = ""
    End If
End If

End Sub