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.