![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Microsoft 365 and Office | Word | For home | Windows
A family of Microsoft word processing software products for creating web, email, and print documents.
The convenience of this macro is, once you know it works, all you need to do is open all documents requiring fixing, ALL AT ONCE, and run the macro one final time.
To force Australian English, change the language specification from wdEnglishUS to wdEnglishAUS
(in two places).
There is a Preference setting that, curiously, is saved with each document and is probably the root of your current problem: *Word > Preferences > Spelling and Grammar > Hide spelling errors in this document.*I've added it to the code as well, so here's a new version with the changes in boldface, which you can add manually:
Sub ApplyEnglishAUStoAllOpenDocuments()
For Each aDocument In Application.Documents
aDocument.Activate
'Apply language ----------------------
Selection.WholeStory
Selection.LanguageID = wdEnglishAUS
Selection.NoProofing = False
'Redefine the Normal style ----------------
ActiveDocument.Styles("Normal").LanguageID = wdEnglishAUS
ActiveDocument.Styles("Normal").NoProofing = False
'Enable spelling errors --------------
ActiveDocument.ShowSpellingErrors = True
'Save changes and close -------------
aDocument.Save
aDocument.Close
Next aDocument
End Sub
In case you don't know anything about macros, the name that follows the starting "Sub" is arbitrary (thus, you can use pretty much any descriptive name there, like Sub ChangeLang(), etc.) while comment lines start with an apostrophe and are ignored by Word.
