VBScript para cambiar el lenguaje del corrector de todas las diapositivas al mismo tiempo de una presentación en Powerpoint

Teniendo instalado Office en el idioma ingles es común que al momento de abrir, crear o editar diapositivas en PowerPoint el idioma del corrector ortográfico se encuentre en ingles, algo que al momento de cambiar el idioma, este no lo cambia automáticamente a todos los cuadros de texto y en todas las diapositivas, bastantes personas nos han consultado ¿Como pueden cambiar el idioma a todos los cuadros de texto de todas las diapositivas?, en este articulo veremos como cambiar el idioma rápidamente.

Para cambiar el idioma en todas las diapositivas a la misma vez

Tenemos 2 opciones, podemos utilizar un Macro o realizarlo por medio de la vista Esquema (Outline). En el siguiente enlace podemos encontrar el articulo: Como cambiar el idioma a todas las diapositivas a la misma vez por medio de la Vista Esquema (Outline). A continuación veamos como realizarlo por medio de un Script VB.

Utilizar VBScript para cambiar el idioma de todas las diapositivas

• Abrimos nuestra presentación de PowerPoint.
• Presionamos ALT+F11 y nos abrira la siguiente ventana.
• Insertamos un nuevo Modulo.
• Donde copiaremos el Script que se encuentra al finalizar el articulo, donde también encontraremos el enlace para realizar el cambio de otros lenguajes.
• Ejecutamos el Script presionando F5 o el botón que se muestra en la imagen siguiente.
• Ahora ya se encuentran todas las diapositivas en el lenguaje deseado.

Código del Script

En el siguiente script se encuentra definido español, pero podemos cambiarlo a uno deseado que se muestra en el este listado: MsoLanguageID Enumeration

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 = msoLanguageIDSpanish
            End If
        Next k
    Next j
End Sub

Para Cambiar a otro lenguaje diferente del listado solo debemos cambiar la siguiente variable.