Hallo, ich wollte eine Userform erstellen
wenn bei checkbox1 ein haken ist, soll die textdatei "hallo" bei der Textmarke "a" ( Die ich davor bestimm wo sie sitzt ) eingefügt werden.
Gleichzeitig soll Textbox1 & Check2 gesperrt werden & danach sich dann Userform 2 öffnen.
Oder ich gebe einen Text in Textbox 1 ein und durch anklicken von Check2 wird dieser Text dann auch bei der Textmarke "a" eingefügt. und danach ebenfalls userform2 geöffnet
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Check2.Locked
TextBox1.Locked
Selection.InsertBreak Type:=wdPageBreak
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="a"
.DefaultSorting = wdSortByName
.ShowHidden = True
End With
Selection.GoTo What:=wdGoToBookmark, Name:="a"
Selection.InsertFile FileName:="hallo.docx", Range:="", ConfirmConversions _
:=False, Link:=False, Attachment:=False
Userform2.Show
End If
End Sub
Private Sub Check2_Click()
Check2.Enabled = True
Check2.Locked = False
If Check2.Value = True Then
Selection.Copy What:=TextBox1.Text
Selection.GoTo What:=wdGoToBookmark, Name:="a"
Selection.Paste
Userform2.Show
End If
End Sub
Private Sub TextBox1_Change()
TextBox1.Enabled = True
TextBox1.Locked = False
End Sub
Wo ist hier mein Fehler bzw. habt ihr Verbesserungsvorschläge ?
|