Macro to change all styles to a specific language

[macropod]

Oops. I'd probably handle errors a little differently though:

Sub ChangeStyle()
    Dim oDoc As Document, oSty As Style
    Set oDoc = ActiveDocument.AttachedTemplate.OpenAsDocument
    With oDoc
        For Each oSty In .Styles
            On Error Resume Next
            oSty.LanguageID = wdEnglishCanadian
            On Error GoTo 0
        Next
        .Close SaveChanges:=wdSaveChanges
    End With
    ActiveDocument.UpdateStyles
End Sub