Word - como mudar o idioma dos estilos

Hoje eu tinha em mãos dois templates do Word, sendo um para documentos em português e outro em inglês. Além de importar os estilos de um documento para o outro, era preciso também alterar o idioma para que ficassem de acordo com a versão do template (português ou inglês).

Este tipo de alteração em cascata mostra o quanto é importante encadear os estilos na hora de sua criação. O campo "estilo baseado em" faz este papel importante: ao alterar um estilo base (mudar tipo de fonte, idioma, etc.), todos os seus derivados são automaticamente atualizados. Assim, se todos os estilos estivessem devidamente encadeados, bastaria alterar o idioma do estilo Normal para atualizar os demais. Não era o caso.

Para resolver, rodei este pequeno trecho de código:

Sub MudarIdiomaEstilos()
Dim s As Style
For Each s In ThisDocument.Styles
    If s.Type = wdStyleTypeParagraph Or s.Type = wdStyleTypeCharacter Or _
    s.Type = wdStyleTypeLinked Or s.Type = wdStyleTypeParagraphOnly Then
        s.LanguageID = wdPortugueseBrazil
    End If
Next s
End Sub

Veja que a constante LanguageID nada mais é que o código do idioma (wdPortugueseID=1046, wdEnglishUS=1033, etc.).