Macro to change all styles to a specific language

[superpatrick]

I'm having some difficulty with the VBA language. What I want to do is to select all Styles in a template and set them all to Canadian English. At the same time I know there might be some errors because some Styles do not have languages at all. Here is my current code

 
Sub ChangeStyle()
    Set tempDoc = ActiveDocument.AttachedTemplate.OpenAsDocument
    Set stylish = tempDoc.Styles
    For Each stylish In tempDoc
        stylish.LanguageID = wdEnglishCanadian
    Next
    tempDoc.Close SaveChanges:=wdSaveChanges
    ActiveDocument.UpdateStyles
End Sub

I'm having a rather difficult time wrapping my head around Collections and using For Each with it. If someone could help me out, that would be fantastic. I don't mind if someone gives me the answer right away, but I would also like to learn