bring others pages content into the active page - macro please

this is not a vb script. 

Pretty clear it is not vb script, CorelCS has mentioned it in the post!

With your massive requirement for macros, high time you put some time and effort into learning vba!

Sub Combine_Pages()
Dim pg As Page, sr As ShapeRange

For Each pg In ActiveDocument.Pages
    If pg.Index <> ActivePage.Index Then
        Set sr = pg.Shapes.All
        sr.MoveToLayer ActivePage.ActiveLayer
    End If
Next pg

End Sub