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
<span style=
"font-family: Verdana, Arial, Helvetica, sans-serif; line-height: 18px; background-color: rgb(239, 239, 239);"
>Wo ist hier mein Fehler bzw. habt ihr Verbesserungsvorschläge ?</span>