Center align all views to sheet

I would like to move all views to the center of the sheet after changing paper size e.g. from A4 to A3. 

I am looking for a macro to achieve this.

SolidworksApi/macros