Is there a macro to copy sw material into a custom property?

Hello my fellow Solidworks users!  I am wondering if anyone knows of a macro that can open each item on a drawing BOM, create a custom property name "Material" inside each part in the BOM (or just choose the preset out of the dropdown) then populate the value with the part's material setting "SW-Material@xxxxxxx.SLDPRT". (I can't seem to find one on the forum)  I would then add a column to my BOM that shows what the material is. If anyone can point me in the right direction, I would be most appreciative!

Thanks,

-Bret

SolidworksApi/macros