Quote:
Originally Posted by eNGiNe
I was confronted with a very similar issue when reviewing a document several people had cobbled together with copy/paste … I used ctrl+A and changed the language setting in the status bar, but this does not seem to trump any "lower-level" settings in styles or paragraphs :-{
|
It should trump the style setting but does not modify the style setting, just as you can change the color or font of text in a style.
The following macro should set each style to EnglishUS.
Code:
Sub StyleEnglishUS()
' Written 14 December 1017
' Charles Kenyon
' Intended to set all styles to English US, proofing, not automatitically update
'
Dim aStyle As Style
For Each aStyle In ActiveDocument.Styles
aStyle.AutomaticallyUpdate = False ' probably do not want this for TOC styles - future work
aStyle.LanguageID = wdEnglishUS
aStyle.NoProofing = False
Next 'aStyle
ActiveDocument.UpdateStylesOnOpen = False
End Sub
This also sets all styles to not automatically update. You probably want your TOC styles to automatically update based on formatting; but, I did not write around them.
Installing Macros