Alterar a linguagem de verificação ortográfica numa apresentação em PowerPoint

Sei que uma resposta já foi aceite (à qual dei +1 desde que funciona e está bem escrita), mas para algumas pessoas a ideia de criar, guardar, usar uma macro pode ser demasiado assustadora (ou podem ter configurações de segurança que tornem isto difícil de conseguir). Assim, uma solução mais fácil é utilizar a funcionalidade normal incorporada para o fazer. O truque é ser capaz de seleccionar todos os objectos em todos os slides de uma só vez, em vez dos slides em si, e isto é facilmente conseguido na Vista Geral (infelizmente uma característica subutilizada, mas óptima para reorganizar um deck de slides, promovendo e desmotando pedaços inteiros, por exemplo balas > novos slides ou vice-versa).

Não tenho PowerPoint 2002 (“XP”) por isso não tenho a certeza se precisa de seguir as instruções para 2000 ou para 2003, por isso cubro ambos aqui:

• Em PP 2000: Vá para a vista de contorno, que é o segundo ícone da esquerda no canto inferior esquerdo do ecrã (parece linhas com reentrâncias).
• Em PP 2003 em diante: Ir para a vista “normal” (esquema de três painéis) e no topo do navegador de slides escolher “esquema” em vez de “slides”

Nas versões mais antigas, certifique-se de que tem a barra de ferramentas de Esquema visível (Ver > Barras de ferramentas > Esquema) e clique no botão Expandir tudo (as versões posteriores permitem-lhe chegar a isto através do clique direito).

• Ctrl-A para seleccionar tudo.
• Ferramentas > Língua > Escolha a sua língua a definir.
• (a partir de Powerpoint 2013) REVIEW \i> Língua \i> Definir língua de prova

Trabalho feito.

Da mesma forma, enquanto tem tudo seleccionado, pode mudar outras coisas como fontes, cores, etc. Embora, claro, em muitos casos isto seja melhor feito através da alteração do slide master, uma apresentação que teve muitos editores pode ter muito conjunto de formatação ‘dura’ que se afasta do master subjacente e precisa de ser redefinida para ser consistente. Também se pode repor os slides individuais ao estilo master, mas isto pode resultar em que os detentores de lugares também se movimentem, o que pode ser indesejável em algumas situações.

Este tópico ](http://www.proz.com/forum/office_applications/34774-set_language_in_entire_ppt_presentation.html) contém a resposta que funcionou para mim.

Os passos que segui foram:

1. criar uma nova macro:
   1.1. Ir para Tools, Macro, Visual Basic Editor.
   1.2. Inserir um novo módulo vazio, seleccionando Insert, Module.

2. Colar este código no painel direito e guardar a macro:

3. Executar a macro (pressionando F5 dentro do editor, ou seleccionando Tools, Macro, Macros, ChangeSpellCheckingLanguage, e clicando em Run).

Depois disso, todos os elementos de texto dentro da apresentação terão a nova linguagem ortográfica.

Depois de muitas apresentações em que o fiz à mão ou usei uma macro isolada, finalmente parti-a e transformei-a num suplemento PowerPoint adequado.

Carreguei-o no meu sítio web: (http://www.janschejbal.de/projekte/languagefixer/)

Cuidado com ele:

• definição da língua padrão
• todas as formas com quadros de texto
• quadros de texto em formas agrupadas (na medida do possível)
• texto em tabelas

• material no slide/note/handout master

• todas as formas com quadros de texto

• quadros de texto em formas agrupadas (na medida do possível)

• texto em tabelas

• material no slide/note/handout master

• apenas defina uma das caixas de texto para a língua que pretende, seleccione-a e clique no botão

Aqui estão duas opções, dependendo da sua situação:

Situação 1: A cópia de origem do Office foi instalada a partir de um suporte de instalação em língua francesa canadiana.

Poderá definir a língua padrão para inglês, mas as funções principais utilizarão a língua nativa do meio de instalação.

A única correcção é desinstalar a versão canadiana em francês, e instalar a partir de um suporte de instalação em inglês ou copiar/colar toda a apresentação para um novo documento e re-formatar.

.

Situação 2: Tudo parece ser inglês, mas em circunstâncias limitadas aparecem línguas estrangeiras.

Nesta situação, aqui estão as instruções de reparação para o Office 2002:

1. Clique no menu Iniciar
2. Apontar para Programas
3. Apontar para Ferramentas Microsoft Office
4. Clicar em Microsoft Office XP Language Settings.
   
5. Clicar no separador Línguas habilitadas.
   
6. Ir para a versão por defeito da caixa 7 do Microsoft Office. Seleccione a língua que pretende
7. Clique em OK. Aparecerá uma mensagem a dizer-lhe quais as alterações que serão feitas.
   
8. Clique em Continuar

Espero que isto ajude.

O código publicado por Leonardo ](https://superuser.com/a/61306/245595) é simples e geralmente eficaz, mas não afectará Shapes em grupos. Um código mais genérico utiliza a recorrência para lidar com esse caso também (ligeiramente alterado de aqui , que está no mesmo fio do código de Leonardo):

Private Function ChangeLangOfAllText_caller()
    'ChangeLangOfAllText (msoLanguageIDEnglishUS)
    ChangeLangOfAllText (msoLanguageIDSpanishArgentina)
End Function

Private Function ChangeLangOfAllText(ByVal LangID As Long)
    Dim MySlide As Slide
    Dim MyShape As Shape
    Dim MyD As Design
    Dim MyHeaderFooter As HeaderFooter
    Dim i, nbs As Integer
    ''''' First deal with the master slides
    For Each MyD In ActivePresentation.Designs
        For Each MyShape In MyD.SlideMaster.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MyD
    ''''' Now deal with the slides
    ' Enable this for debugging
    'Debug.Print "File " & ActivePresentation.Name & _
      ": working with " & ActivePresentation.Slides.Count & " slides"
    For Each MySlide In ActivePresentation.Slides
        ' Enable this for debugging
        'Debug.Print " Slide index " & MySlide.SlideIndex & ", Slide number " & MySlide.SlideNumber & _
          ": working with " & MySlide.Shapes.Count & " shapes"
        For Each MyShape In MySlide.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the Notes
        For Each MyShape In MySlide.NotesPage.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the master ' doesn't appear to work, have to try something else
        For Each MyShape In MySlide.Master.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MySlide
End Function

Private Function ProcessShapes(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If ((MyShape.Type = msoGroup) Or (MyShape.Type = msoTable)) Then
        On Error Resume Next
        For i = 1 To MyShape.GroupItems.Count
            ''' The trick is to recurse!
            ProcessShapes MyShape.GroupItems.Item(i), LangID
        Next i
    Else
        ChangeLang MyShape, LangID
    End If
End Function

Private Function ChangeLang(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If (MyShape.HasTextFrame) Then
        ' Enable this for debugging
        'Debug.Print " Shape " & MyShape.ZOrderPosition & ", type: " & MyShape.Type & _
          ", has text frame: " & MyShape.HasTextFrame & ", has text: " & MyShape.TextFrame.HasText & _
          ", alt. text: " & MyShape.AlternativeText
        MyShape.TextFrame.TextRange.LanguageID = LangID
    End If
End Function

Tive os mesmos problemas com apresentações feitas com PowerPoint alemão e com a tradução manual para inglês. O problema é que a configuração linguística é essencialmente uma formatação que é aplicada a cada elemento da caixa de texto por si só.

Não tenho conhecimento de qualquer solução conveniente – tive de viver com a descoordenação ou alterar manualmente o “formato” linguístico de cada caixa de texto individual em cada diapositivo. Não é divertido, por isso vivo sobretudo com ele.