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

Valora la información: (Ninguna valoración todavía)

Cargando…

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.