Lisp to select multileader style name and replace

[JiffytheSpiffy]

Ok, I'm at my wits end here ( or maybe I forgot to take my meds ).

I can't for the life of me figure out how to do write a lisp command that i can execute when opening a cad drawing.

Little history here.  I have created standard templates for everyone in my office to use, but some departments like to alter these to fit their needs, which ultimately destroys the whole idea of having standards.  I would like help with a lisp command that will do the following.

 

After I open the drawing

Run lisp called "Cleanup" that will 

Select all multileaders by style named horizontal 1 and replace them with H - 1
Select certain blocks and replace them
Select certain dimstyles and replace them

 

Is there a way I can have it repeat for different style names that i can edit in the lisp?

I have tried using the checkstandards option, selecting and changing all entities a group at a time, and qselect.

These options are very time consuming (something I don't have much of) 
I dont understand how to use the SSGET and SSX commands, let alone create lisp using them.

 

If anyone has any idea please let me know.  What i have in mind may not be the easiest way.

Thank you in advance!!