Macro para obtener el idioma y país de una aplicación OpenOffice

Macro idioma y pais OpenOffice

Esta función permite obtener el país y el idioma en que se está ejecutando OpenOffice.

 

Indispensable si necesitas escribir código que presente distintos textos en función del idioma.

 

 

 

 

Function OOoIdioma( OOoIdioma_Pais as string ) as string
Dim oSet, oConfigProvider
Dim oParm(0) As New com.sun.star.beans.PropertyValue
Dim sProvider$, sAccess$
sProvider = "com.sun.star.configuration.ConfigurationProvider"
sAccess = "com.sun.star.configuration.ConfigurationAccess"
oConfigProvider = createUnoService(sProvider)
oParm(0).Name = "nodepath"
oParm(0).Value = "/org.openoffice.Setup/L10N"
oSet = oConfigProvider.createInstanceWithArguments(sAccess, oParm())

OOoIdioma_Pais = trim(oSet.getbyname("ooLocale")) 'por ejemplo es, es-AR, en-US
OOoIdioma = lCase(Left(OOoIdioma_Pais,2)) 'por ejemplo es, es , en
End Function

Ejemplo de uso de la función:

Dim Idioma as string, Idioma_Pais as string
Idioma = OOoIdioma( Idioma_Pais )
msgbox "Idioma es " & Idioma & "; Idioma y país es " & Idioma_Pais

 

No hay reacciones, todavía


Form is loading...

Otros usuarios vieron...

  • Macro enviar mail HTML desde openoffice

    A raiz de una solicitud en el foro de Apache OpenOffice español, donde Chelo2 desea enviar una mensaje de correo con una tabla extraída de Calc, se considera la p

  •  

    Libro Aprendiendo OOo Basic / LibO Basic

    Desde la web de Universo Libre México puedes descargar el libro de Mauricio Baeza Aprendiendo OOo/LibO Basic, un magnífico manual con casi 600 páginas de información para todo

  • Este procedimiento para ordenar matrices es, en la gran mayoría de casos, más rápido que el método de la burbuja.

    Para conocer más sobre estos métodos puedes consultar las sigui

Patrocinado por SBS  Contacto • ©2019 by SalvaDCH