Word XP - UserForm mit Kontrollkästchen

10/03/2008 - 21:14 von Michael Günther | Report spam
Hallo,

ich habe eine Wordvorlage mit UserForm und Kontrollkàstchen erstellt. Damit
sollen Anschreiben mit verschiedenen Bausteinen erstellt werden.

Das ganze sieht in etwa so aus:
Kontrollkàstchen zum ankreuzen: Frau, Mann, ledig, Verheiratet, allgemein.
Sobald ein Kreuz gesetzt wird, soll ein externer Baustein an einer
bestimmten Textmarke eingefügt werden.

Die Kàstchen werden angekreuzt und dann mit OK bestàtigt.
Alle angekreuzten Bausteine sollen dann im Dokument stehen. Leider klappt
dies nicht.
Es stehen alle Bausteine, auch die nicht angekreuzten, drin.

Anbei der Befehl der hinter dem ok steht.

Private Sub OK_1_Click()
Unload auswahl

If CheckBox1.Enabled = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="tm_textanfang" '
Einlesen der Anlage
ChangeFileOpenDirectory "D:\_Arbeitsverzeichnis\TB"
Selection.InsertFile FileName:="frau.doc", Range:="",
ConfirmConversions:= _
False, Link:=False, Attachment:=False
End If

If CheckBox2.Enabled = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="tm_textanfang" '
Einlesen der Anlage
ChangeFileOpenDirectory "D:\_Arbeitsverzeichnis\TB"
Selection.InsertFile FileName:="mann.doc", Range:="",
ConfirmConversions:= _
False, Link:=False, Attachment:=False
End If

If CheckBox3.Enabled = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="tm_alle" ' Einlesen der
Anlage
ChangeFileOpenDirectory "D:\_Arbeitsverzeichnis\TB"
Selection.InsertFile FileName:="alle.doc", Range:="",
ConfirmConversions:= _
False, Link:=False, Attachment:=False
If CheckBox4.Enabled = True Then

End If
Selection.GoTo What:=wdGoToBookmark, Name:="tm_familienstand" '
Einlesen der Anlage
ChangeFileOpenDirectory "D:\_Arbeitsverzeichnis\TB"
Selection.InsertFile FileName:="verheiratet.doc", Range:="",
ConfirmConversions:= _
False, Link:=False, Attachment:=False
End If

Selection.GoTo What:=wdGoToBookmark, Name:="tm_textanfang"
ActiveDocument.FormFields("tm_datum").Result = Format(Date, "dd.mm.yyyy")


Was mache ich falsch? Kann mir jemand helfen?


Gruß

Michael Günther
 

Lesen sie die antworten

#1 Rainer Burre
10/03/2008 - 23:44 | Warnen spam
Hallo Michael,

die Eigenschaft "Enabled", die du bei den Checkboxen abfragst besagt,
ob ein User das Steuerelement auswàhlen kann (True), oder ob es inaktiv
(False)
ist (wird in der UserForm grau dargestellt).

Für dein Problem mußt du die "Value" Eigenschaft heranziehen.

Bsp: If CheckBox1.Value = True Then ...

Gruß
Rainer


"Michael Günther" schrieb im Newsbeitrag
news:
Hallo,

ich habe eine Wordvorlage mit UserForm und Kontrollkàstchen erstellt.
Damit sollen Anschreiben mit verschiedenen Bausteinen erstellt werden.

Das ganze sieht in etwa so aus:
Kontrollkàstchen zum ankreuzen: Frau, Mann, ledig, Verheiratet, allgemein.
Sobald ein Kreuz gesetzt wird, soll ein externer Baustein an einer
bestimmten Textmarke eingefügt werden.

Die Kàstchen werden angekreuzt und dann mit OK bestàtigt.
Alle angekreuzten Bausteine sollen dann im Dokument stehen. Leider klappt
dies nicht.
Es stehen alle Bausteine, auch die nicht angekreuzten, drin.

Anbei der Befehl der hinter dem ok steht.

Private Sub OK_1_Click()
Unload auswahl

If CheckBox1.Enabled = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="tm_textanfang" '
Einlesen der Anlage
ChangeFileOpenDirectory "D:\_Arbeitsverzeichnis\TB"
Selection.InsertFile FileName:="frau.doc", Range:="",
ConfirmConversions:= _
False, Link:=False, Attachment:=False
End If

If CheckBox2.Enabled = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="tm_textanfang" '
Einlesen der Anlage
ChangeFileOpenDirectory "D:\_Arbeitsverzeichnis\TB"
Selection.InsertFile FileName:="mann.doc", Range:="",
ConfirmConversions:= _
False, Link:=False, Attachment:=False
End If

If CheckBox3.Enabled = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="tm_alle" ' Einlesen der
Anlage
ChangeFileOpenDirectory "D:\_Arbeitsverzeichnis\TB"
Selection.InsertFile FileName:="alle.doc", Range:="",
ConfirmConversions:= _
False, Link:=False, Attachment:=False
If CheckBox4.Enabled = True Then

End If
Selection.GoTo What:=wdGoToBookmark, Name:="tm_familienstand" '
Einlesen der Anlage
ChangeFileOpenDirectory "D:\_Arbeitsverzeichnis\TB"
Selection.InsertFile FileName:="verheiratet.doc", Range:="",
ConfirmConversions:= _
False, Link:=False, Attachment:=False
End If

Selection.GoTo What:=wdGoToBookmark, Name:="tm_textanfang"
ActiveDocument.FormFields("tm_datum").Result = Format(Date,
"dd.mm.yyyy")


Was mache ich falsch? Kann mir jemand helfen?


Gruß

Michael Günther


Ähnliche fragen