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.
