Replace styles script needed

Question

Does anyone know of a script that will allow me to replace one paragraph style with another. I would like a something that would list all the paragraph styles in one list box and have another list box for "replace with..."
Paragraph Styles
Change to Style
BODY 10/12
BODY 12/15
BODY 12/15
MY STYLE 10/12 ITALIC W/GREP
MY STYLE 10/12 BOLD W/GREP
MY STYLE 10/12 BOLD W/GREP
Something like this
Thanks in advance
RPP

Answer 1

This is very basic — it doesn't check if any document is open, or the styles exist, etc.
var myDoc = app.activeDocument;
app.findTextPreferences = app.changeTextPreferences = null;
app.findTextPreferences.appliedParagraphStyle = "BODY 10/12";
app.changeTextPreferences.appliedParagraphStyle = "BODY 12/15";
myDoc.changeText();
app.findTextPreferences.appliedParagraphStyle = "MY STYLE 10/12 ITALIC W/GREP";
app.changeTextPreferences.appliedParagraphStyle = "MY STYLE 10/12 BOLD W/GREP";
myDoc.changeText();
// and so on, or if you have a lot of styles to change, create 2 arrays:
// with find-change names and loop thru them in a for loop
app.findTextPreferences = app.changeTextPreferences = null;
Hope it helps.
Kasyan