Macro for dimension adjustment

Hello all

Could someone help me by providing a macro which makes all the vertical dimensions zigzag n horizontal dimensions centered.

Thanks inadvance

SolidworksApi macros