Cómo cambiar el idioma a español de México en una presentación de PowerPoint

Alguna vez nos ha pasado que descargamos una plantilla o que no nos dimos cuenta y estabamos trabajando en un idioma distinto, y hay que cambiar a Espñol de México en cada diapositiva, y es muy tardado o molesto hacerlo uno a uno. Aquí tienes una macro para PowerPoint que cambia el idioma de la revisión de texto a español de México para todas las diapositivas con un solo clic:
¿Cómo usar esta macro?
- Abra su presentación de PowerPoint.
- Presione
Alt + F11para abrir el Editor de VBA (Visual Basic for Applications). - En el Editor de VBA, en el panel de la izquierda (Explorador de Proyectos), haga clic derecho en el nombre de su presentación (por ejemplo, “VBAProject (NombreDeSuPresentacion.pptx)”).
- Seleccione Insertar > Módulo.
- Copie y pegue el código de la macro en el módulo en blanco que aparece en la ventana principal.
- Cierre el Editor de VBA.
- Para ejecutar la macro, vuelva a PowerPoint, vaya a la pestaña Vista, haga clic en Macros (en el grupo “Macros”).
- Seleccione
CambiarIdiomaEspanolMexicoy haga clic en Ejecutar.
Código de la Macro:
Sub CambiarIdiomaEspanolMexico()
Dim oSlide As Slide
Dim oShape As Shape
Dim oTextRange As TextRange
' Recorre todas las diapositivas de la presentación activa
For Each oSlide In ActivePresentation.Slides
' Recorre todas las formas de la diapositiva
For Each oShape In oSlide.Shapes
' Verifica si la forma contiene texto
If oShape.HasTextFrame Then
If oShape.TextFrame.HasText Then
' Obtiene el rango de texto de la forma
Set oTextRange = oShape.TextFrame.TextRange
' Establece el idioma de la revisión de texto a español (México) usando su ID numérico
oTextRange.LanguageID = 2058 ' ID numérico para Español (México)
End If
End If
Next oShape
Next oSlide
MsgBox "El idioma de revisión de texto se ha cambiado a Español (México) para todas las diapositivas y formas.", vbInformation
End Sub
Esta macro asegura que el idioma de revisión, es decir, el diccionario que usa PowerPoint para la corrección ortográfica y gramatical, se ajuste a las reglas del español de México en todo el contenido de su presentación.
Para cambiar la corrección a otro idioma, solo necesita modificar el valor numérico que representa el LanguageID en la línea:
VBA
oTextRange.LanguageID = 2058 ' ID numérico para Español (México)
Debe sustituir 2058 por el ID numérico del idioma deseado.
Aquí le presento una tabla con los IDs numéricos de algunos de los idiomas más comunes y sus variantes, que son los que generalmente se utilizan para la corrección en aplicaciones de Microsoft Office:
| Idioma | LanguageID |
| Español (México) | 2058 |
| Español (España) | 1034 |
| Español (Argentina) | 11274 |
| Español (Chile) | 13322 |
| Español (Colombia) | 9226 |
| Inglés (Estados Unidos) | 1033 |
| Inglés (Reino Unido) | 2057 |
| Francés (Francia) | 1036 |
| Alemán (Alemania) | 1031 |
| Italiano (Italia) | 1040 |
| Portugués (Brasil) | 1046 |
| Chino (Simplificado) | 2052 |
| Japonés | 1041 |
| Coreano | 1042 |
Estos son los identificadores más usados para configurar el idioma de revisión. Simplemente copie el valor numérico del idioma al que desea cambiar y péguelo en la macro.