Looking for a zoom fit macro

Anyone know of a macro that will open a drawing (preferrably a batch of drawings) and zoom fit all sheets?

SolidworksDrawings And Detailing