Sub Testlauf()
Dim Auswahl As Variant
Dim Seite As Range
Dim Seitenende As Range
Seitenanzahl = ActiveDocument.ComputeStatistics(wdStatisticPages)
Auswahl = InputBox("Welche Seite wollen sie kopieren?" & Chr(10) & "Es sind " & Seitenanzahl & " Seiten vorhanden.", "Seite kopieren")
If Auswahl = "" Or Not IsNumeric(Auswahl) Or (IsNumeric(Auswahl) And Auswahl > Seitenanzahl And Auswahl < 1) Then Exit Sub
Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Name:=Auswahl
Set Seite = ActiveDocument.Bookmarks("\Page").Range
Seite.SetRange Seite.Start, Seite.End - 1
Seite.Copy
Auswahl = InputBox("Nach welcher Seite wollen sie einfügen?" & Chr(10) & "Es sind " & Seitenanzahl & " Seiten vorhanden.", "Seite einfügen")
If Auswahl = "" Or Not IsNumeric(Auswahl) Or (IsNumeric(Auswahl) And Auswahl > Seitenanzahl And Auswahl < 1) Then Exit Sub
Selection.GoTo what:=wdGoToPage, which:=wdGoToAbsolute, Count:=Auswahl
Set Seitenende = Selection.Bookmarks("\Page").Range
Seitenende.SetRange Seitenende.End - 1, Seitenende.End - 1
Seitenende.Select
Selection.InsertBreak Type:=wdPageBreak
Selection.PasteAndFormat Type:=wdFormatOriginalFormatting
End Sub