Aussie words

Guessed · #6 11-20-2016, 03:00 PM

Clubfox

Perhaps the template you edited and the template that your using are two different templates. Certainly I would expect your Normal to be a Normal.dotm not a dotx. And then different styles can have different languages applied to them so you have to check every paragraph style. And then you need to ensure there isn't any local language overrides applied to the text. And then you need to pay attention if you paste in content from other documents which contain other language-tagged content.

But if you get your template right and use it properly, you shouldn't encounter problems very often, nor will you need macros to constantly reset anything.

Here is a macro you can use to ensure the entire document is being checked in Australian. This involves setting EVERY style as well as making sure there is no local language overrides on content already in the document.

Code:

Sub SetLanguage()
  'Changes all the styles in the document to Australian spelling
  Dim aStyle As Style
  For Each aStyle In ActiveDocument.Styles
    If aStyle.Type = wdStyleTypeParagraph Then
      aStyle.LanguageID = wdEnglishAUS
    End If
  Next aStyle
  ActiveDocument.Range.LanguageID = wdEnglishAUS
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Capitalize one to two words if they are the only words on a line	jrhlavac	Word VBA	1	10-08-2015 08:19 PM
Finding Non-English Words in an English and Non-English words document	mohsen.amiri	Word	3	03-31-2015 11:20 PM
How to mark underlined words in a sentence as A, B, C, D (beneath the words)	thudangky	Word	13	12-12-2013 02:22 AM
VBA to highlight words if used too much	aolszewski	Word VBA	3	11-23-2013 02:07 AM
Why Words doesn’t show the style of the selected words automatically????	Jamal NUMAN	Word	0	04-14-2011 03:20 PM