Change Outlook’s Proofing Language on the Fly
I’m working for a company that does business in the U.S. and several other countries, and I usually attempt to ensure that my spelling is in line with who I’m communicating with. As a result, email communication often ends up looking like this:
For years I just did my best to grit my teeth and ignore it, but finally I got around to writing a macro that allows a single button-click to change the language of the email you’re working on:
Option Explicit Private Const wdEnglishUS = 1033 Private Const wdEnglishUK = 2057 Public Sub SetLangEngUS() SetDocLang wdEnglishUS End Sub Public Sub SetLangEngUK() SetDocLang wdEnglishUK End Sub Sub SetDocLang(ALangID As Integer) Dim wordEditor As Object If Inspectors.Count = 0 Then Exit Sub If ActiveInspector.CurrentItem.Class <> olMail Then Exit Sub If Not ActiveInspector.IsWordMail Then Exit Sub If ActiveInspector.EditorType <> olEditorWord Then Exit Sub Set wordEditor = ActiveInspector.wordEditor On Error Resume Next ActiveInspector.wordEditor.Styles("Normal").LanguageID = ALangID ActiveInspector.wordEditor.SpellingChecked = False End Sub
Then, just add two icons to the Quick Access Toolbar, each pointing to one of the SetLangEngUS and SetLangEngUK calls.