Solidworks Batch Rename for Drawings With Same part name

[lafontb]

I'm looking for a macro that can take bulk drawings and their reference parts/assemblies with file names in this format: "1234567-89-A_description of varying length" and resave both drawing and part into this format: "1234567-89-A" while maintaining the part-drawing or assembly-drawing link. Bonus if the "description of varying length" can be saved and re-written into the "description" file property box of the part file