can anyone create 2 macro command of Ctrl A then Ctrl P & Ctrl A then Ctrl R on all pages of a file in a single click?

exactly...

Sub CenterShapesOnEachPage()
Dim p As Page, i&
ActiveDocument.BeginCommandGroup "CenterShapes"
For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Shapes.All.AlignRangeToPageCenter cdrAlignVCenter
Next i
Application.Refresh
ActiveDocument.EndCommandGroup
End Sub

Sub Macro1()
' Recorded 6/22/2017
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
ActiveDocument.ReferencePoint = cdrCenter
OrigSelection.SetSize 17.6, 11.6
ActiveDocument.Pages(1).Shapes.All.CreateSelection
ActiveSelection.SetSize 17.6, 11.6
End Sub



just like this but i dont want to wrote any size here
i just want my macro to repeat my command on all page in 1 just single click
for example
i have 100 page in a document
i change 1st page size is 12X9 inch i changed it to 11X8.5 inch and did center
now i change 2st page size is 8X5 inch i changed it to 11X8.5 inch and did center
and so on i have different size object on all the pages i want them to be the size which i did on first and repeat and center on remaining pages.

please help

Sub CenterShapesOnEachPage()

   Dim p As Page, i&

   ActiveDocument.BeginCommandGroup "CenterShapes"

   Optimization = True

   For i = 1 To ActiveDocument.Pages.Count

   ActiveDocument.Pages(i).Shapes.All.SizeHeight = 2 'your size here

    ActiveDocument.Pages(i).Shapes.All.SizeWidth = 2 'your size here

     ActiveDocument.Pages(i).Shapes.All.AlignRangeToPageCenter cdrAlignVCenter

   Next i

   Optimization = False

   Application.Refresh

   ActiveDocument.EndCommandGroup

End Sub

thats awesome too thanks myron :)