Script to change language to all Paragraph Styles?

Question

Is there a script out there that will change the language of all styles in a document? I frequently need to take US English files with multiple folders of styles and convert them for Canada English and French. Find/replace language does well enough for one-off use but I would like to clean up file as I go for future use without going through each style one and a time.
-Thanks!

Answer 1

If you are using OSX this AppleScript will change all the style definitions and text for the active document to French. Just edit the first line for the desired language so Canadian English would be:  set lang to "English: Canadian"
set lang to "French"
tell application "Adobe InDesign CS6"
    set pstyles to all paragraph styles of active document
    repeat with i from 1 to number of items in pstyles
        try
            set applied language of item i of pstyles to lang
        end try
    end repeat
    set cstyles to all character styles of active document
    repeat with i from 1 to number of items in cstyles
        try
            set applied language of item i of cstyles to lang
        end try
    end repeat
    try
        set applied language of every paragraph of every story of active document to lang
    end try
end tell