Cambiar el idioma del corrector ortográfico en una presentación de PowerPoint

Sé que ya se ha aceptado una respuesta (a la que he dado un +1 ya que funciona y está bien escrita), pero para algunas personas la idea de crear, guardar y utilizar una macro puede ser demasiado aterradora (o pueden tener una configuración de seguridad que hace que esto sea difícil de lograr). Así que una solución más fácil es utilizar la funcionalidad normal incorporada para hacer esto. El truco es poder seleccionar todos los objetos de todas las diapositivas a la vez, en lugar de las propias diapositivas, y esto se consigue fácilmente en la vista de Esquema (tristemente una característica infrautilizada, pero genial para reorganizar un conjunto de diapositivas, promoviendo y degradando trozos enteros, por ejemplo, viñetas > nuevas diapositivas o viceversa).

No tengo PowerPoint 2002 (“XP”), así que no estoy seguro de si hay que seguir las instrucciones para el 2000 o para el 2003, así que cubro ambos aquí:

• En PP 2000: Ve a la vista de esquema, que es el segundo icono desde la izquierda en la parte inferior izquierda de la pantalla (parecen líneas con sangrías).
• En PP 2003 en adelante: Vaya a la vista “normal” (diseño de tres paneles) y en la parte superior del navegador de diapositivas elija “esquema” en lugar de “diapositivas”

En versiones anteriores, asegúrese de que tiene visible la barra de herramientas de Esquema (Ver > Barras de herramientas > Esquema) y haga clic en el botón Expandir todo (las versiones posteriores le permiten llegar a esto a través del clic derecho).

• Ctrl-A para seleccionar todo.
• Herramientas > Idioma > Elija el idioma que desee.
• (a partir de Powerpoint 2013) REVISIÓN > Idioma > Establecer idioma de prueba

Trabajo hecho.

Igualmente mientras tienes todo seleccionado puedes cambiar otras cosas como fuentes, colores, etc. Aunque, por supuesto, en muchos casos esto se hace mejor cambiando el patrón de diapositivas, una presentación que ha tenido muchos editores puede tener muchos formatos ‘duros’ que se desvían del patrón subyacente y necesitan ser restablecidos para ser consistentes. También puede reajustar las diapositivas individuales al estilo del patrón, pero esto puede hacer que los marcadores de posición se muevan también, lo que puede ser indeseable en algunas situaciones.

Este hilo contiene la respuesta que me funcionó.

Los pasos que seguí fueron

1. Crear una nueva macro:
   1.1. 1.1. Ir a Herramientas, Macro, Editor de Visual Basic.
   1.2. Insertar un nuevo módulo vacío seleccionando Insert, Module.

2. Pegue este código en el panel derecho y guarde la macro:

3. Ejecuta la macro (pulsando F5 dentro del editor, o seleccionando Herramientas, Macro, Macros, ChangeSpellCheckingLanguage, y haciendo clic en Ejecutar).

Después, todos los elementos de texto dentro de la presentación tendrán el nuevo idioma ortográfico.

Después de muchas presentaciones en las que lo hice a mano o usé una macro puntual, finalmente me rompí y lo convertí en un complemento de PowerPoint propiamente dicho.

Lo he subido a mi sitio web: PowerPoint LanguageFixer

Se encarga de:

• establecer el idioma por defecto
• todas las formas con marcos de texto
• los marcos de texto en las formas agrupadas (en la medida de lo posible)
• el texto en las tablas
• las cosas en el patrón de diapositivas/notas/manuales

Sólo hay que poner uno de los cuadros de texto en el idioma que se desee, seleccionarlo y hacer clic en el botón.

Aquí hay dos opciones dependiendo de su situación:

• *

Situación 1: La copia original de Office se instaló desde un medio de instalación basado en el idioma francés canadiense.

Podrá establecer el idioma por defecto en inglés, pero las funciones principales utilizarán el idioma nativo del medio de instalación.

La única solución es desinstalar la versión en francés canadiense, e instalar desde un medio de instalación en inglés o copiar/pegar toda la presentación en un nuevo documento y volver a formatear.

.

• *

Situación 2: Todo parece estar en inglés, pero en circunstancias limitadas aparecen idiomas extranjeros.

En esta situación, he aquí las instrucciones de reparación de Office 2002:

1. Haga clic en el menú Inicio
2. 2. Ir a Programas
3. Ir a Herramientas de Microsoft Office
4. 3. Ir a Herramientas de Microsoft Office
5. Ir a Configuración de Idioma de Microsoft Office XP.
6. Haga clic en Microsoft Office XP Language Settings.
   
7. Haga clic en la pestaña Idiomas habilitados.
   
8. Vaya a la casilla Versión predeterminada de Microsoft Office
9. Seleccione el idioma que desee
10. Haga clic en Aceptar. Aparecerá un mensaje indicando los cambios que se realizarán.
    
11. Haga clic en Continuar

• *

Espero que esto le ayude.

El código publicado por Leonardo ](https://superuser.com/a/61306/245595) es simple y generalmente efectivo, pero no afectará a los Shape en grupos. Un código más genérico utiliza la recursividad para tratar también ese caso (ligeramente modificado desde aquí , que está en el mismo hilo que el 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

He tenido los mismos problemas con presentaciones hechas con PowerPoint alemán y traducidas manualmente al inglés. El problema es que la configuración del idioma es esencialmente un formato que se aplica a cada elemento del cuadro de texto por sí mismo.

No conozco ninguna solución conveniente – he tenido que vivir con el desajuste o cambiar manualmente el “formato” del idioma de cada cuadro de texto individual en cada diapositiva. No es divertido, así que casi siempre vivo con ello.