Sub UKEnglish()
'
' UKEnglish Macro
' Macro recorded 2/22/2010 by  Clive Darke
'
    ActiveDocument.AttachedTemplate.LanguageID = wdEnglishUK
    ActiveDocument.AttachedTemplate.NoProofing = False
    Selection.LanguageID = wdEnglishUK
    Selection.NoProofing = False
    Application.CheckLanguage = False
End Sub