Mudando idioma do corretor ortográfico do PowerPoint automaticamente

Quem nunca recebeu uma apresentação de PowerPoint, onde em todos os slides, você vê aquela linhazina vermelha em baixo da palavra que lhe parece correta. Ai quando você clica para corrigir percebe que o idioma que o corretor está é Inglês ou Francês, ou Chinês.

Então, lá vai você, slide por slide, todos os 240, um por um, e seu chefe pediu que você entregasse tudo correto em 05 minutos. Antes de bater o desespero, veja aqui como mudar o idioma da correção ortográfica (e de quebra executar a correção nas palavras que -realmente- estão erradas).

A solução abaixo requer programar em VBA, mas basicamente é copiar/colar.

1.      Crie uma nova macro

1.1.        Habilite a aba DEVELOPER, clicando em qualquer parte em branco de sua barra de menus e selecione CUSTOMIZE RIBBONS

1.2. Vá para a aba Developer, em seguida  Tools, Macro, Visual Basic Editor.
1.2. Crie um novo modulo vazio selecionando Insert, Module.

1.      Cole o código abaixo e salve a macro:

Option Explicit 

Public Sub ChangeSpellCheckingLanguage() 

    Dim j As Integer, k As Integer, scount As Integer, fcount As Integer

    scount = ActivePresentation.Slides.Count

    For j = 1 To scount

        fcount = ActivePresentation.Slides(j).Shapes.Count

        For k = 1 To fcount

            If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then

                ActivePresentation.Slides(j).Shapes(k) _

                .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishAUS

            End If

        Next k

    Next j

End Sub

A opção msoLanguageIDEnglishAUS pode ser substituída por quaisquer idiomas. A lista total de idiomas pode ser encontrada neste link.

2.      Execute a macro pressionando F5 no próprio editor ou selecionando Tools, Macro, Macros ChangeSpellCheckingLanguage, e clique Run).

Você pode ainda atribuir um botão à esta macro, mas para cada apresentação que necessitar destes passos, você terá que criar a macro novamente.