Hallo zusammen,
ich würde gerne einen Command Button so programmieren, dass ich per Knopfklick eine bestimmte Seite kopieren kann und diese an eine bestimmte Stelle im Dokument einfügen kann.
Im Moment sieht mein Code so aus:
Private Sub CommandButton1_Click()
Dim Auswahl As String
Auswahl = InputBox("Which Page do you want to duplicate?", "Seite kopieren")
If Auswahl = vbNullString Then Exit Sub
Dim pRange As Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Auswahl
Set pRange = ActiveDocument.Bookmarks("\Page").Range
pRange.Copy
ActiveDocument.Characters.Last.Select
Selection.Collapse
Selection.Paste
End Sub
Hier muss ich zuvor allerdings schon eine leere Seite an das Ende angefügt haben und die kopierte Seite wird auch nur auf das letzte Blatt eingefügt.
Ich hoffe mir kann hierbei jemand weiterhelfen.
Viele Grüße
Dominik
|