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

[vba]
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
[/vba]

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