Macro for splitting all faces of a surface body (or of several surface bodies) in individual surface bodies

Like a surface explode. Do you know if such a macro exists?

This should have been an intrinsic part of SOLIDWORKS.

SolidworksApi macros