For each mypage

Hello, gentlemen
If i have a 9-10 pages document and wont to group all shapes on each page i use code:

Sub Group_shapes_on_pages()
Dim mypage As Page
For Each mypage In ActiveDocument.Pages
mypage.Shapes.All.Group
Next
End Sub

But code above work not well. 
I expect that the shapes on each page will group, but they group only on the active page. I can't figure out where the problem is.

Then I try the following code. And it works as I expect - it draws an ellipse on every page.

And why aren't the shapes on each page grouped together?

Sub Group_shapes_on_pages()
Dim mypage As Page
For Each mypage In ActiveDocument.Pages
mypage.ActiveLayer.CreateEllipse2 1, 1, 1
Next
End Sub

Can anyone tell?
Greetings!