Create multiple design partitions (more) easily

Hello,

does anyone know of a way (using a tcl script or something) to search the Project hierarchy and create a design partition around design entities matching a given name? I have to do this in order to work around a Quartus bug with multipliers (at Altera's suggestion) but I have many such multipliers and doing it by hand in the Project Navigator window is a little cumbersome (albeit doable). I have had to repeat the manual procedure a number of times however, so some form of automation would be useful.

Thanks for any suggestions,

Dave