|
Hallo,
der von mir gepostete Code funktioniert nur mit Active-X Controls.
Wenn Formular-Elemente aus der Gruppe "Formulare aus Vorversionen" genommen werden, muss folgender Code verwendet werden:
Sub txtA()
If ActiveDocument.FormFields("chkA").CheckBox.Value = True Then
'Debug.Print ActiveDocument.FormFields("txtC").Type
ActiveDocument.FormFields("txtC").Result = ActiveDocument.FormFields("txtC").Result & "Kästchen A wurde ausgewählt"
End If
End Sub
Dieser Code kann in einem beliebigen Modul eingefügt werden.
Die Checkbox und alle anderen Formular-Elemente müssen analog zu dieser Anleitung erstellt werden.
Zusätzlich muss im CheckBox chkA das Ereignis beim Beenden eingetragen werden. Hier muss "txtA" ausgewählt werden.
Die Textbox muss mit der Textmarke "txtC" benannt werden.
Diese Formular-Elemente funktionieren nur dann, wenn das Dokument (und der Abschnitt) so geschützt wird, dass nur noch Formulareingaben zulässig sind.
VG, BigBen
|