How about you try some alternate code instead. This macro is similar but differs in critical ways:
- The code Charles provided concentrates on different story ranges, mine only treats the main body of the document.
- The code Charles provided ignores style settings so future edits could easily introduce alternate languages once more
This alternative code could be adapted to include all story ranges if they were important to you but it is best to get something that works before making it too complex.
Code:
Sub SetLanguage()
'Changes all content and styles in the document to UK English spelling
Dim aStyle As Style, iLingua As Integer
iLingua = wdEnglishUK
For Each aStyle In ActiveDocument.Styles
If aStyle.Type = wdStyleTypeParagraph Then
aStyle.LanguageId = iLingua
End If
Next aStyle
With ActiveDocument
.Range.LanguageId = iLingua
.Range.NoProofing = False
.SpellingChecked = False
.GrammarChecked = False
'.CheckSpelling
End With
Application.ResetIgnoreAll
End Sub