I do not have a macro for that in my pocket. If you need it, someone here will likely write it. I put together something similar on this page.
Spelling Checker Does Not Work! - Proofing Language Keeps Changing - Solutions
The macro name is StyleEnglishAUSNormalTemplate() and it also changes the proofing language in the normal template.