Macro to align all objects on all pages vertically to page center

Hey all,

Does anyone have a macro to select all objects on all the pages of a document and align them vertically to the center of their respective pages?

Thank you!