[RESUELTO] macro para consultar idioma

[estudiante]

buenas,

necesito hacer una macro que me identificara cual es el idioma de mi interface de open office, pero no tengo ni idea como hacerlo,
alguien tiene alguna idea?

muchas gracias

[mauricio]

Hola...

OOo incorpora una función para esto:

Código: Seleccionar todo

Option Explicit

Sub Idioma()
Dim oLocal As Object

	GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
	oLocal = GetStarOfficeLocale() 
	
	MsgBox oLocal.Language
	
End Sub

Por favor, si esto resuelve tu pregunta, marca el tema inicial como [RESUELTO], gracias...

Saludos