9 messages in org.openoffice.fr.prog[prog] Changer la langue locale
FromSent OnAttachments
Didier Dorange-PattoretNov 22, 2008 6:40 am 
Francois GattoNov 22, 2008 11:02 pm 
Didier Dorange-PattoretNov 23, 2008 1:19 pm 
Francois GattoNov 23, 2008 10:40 pm 
Bernard MarcellyNov 24, 2008 3:22 am 
Didier Dorange-PattoretNov 24, 2008 4:05 am 
Didier Dorange-PattoretNov 24, 2008 4:11 am 
Didier Dorange-PattoretNov 24, 2008 4:14 am 
Francois GattoNov 24, 2008 10:27 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:[prog] Changer la langue localeActions...
From:Didier Dorange-Pattoret (ddor@dmaths.com)
Date:Nov 22, 2008 6:40:42 am
List:org.openoffice.fr.prog

Bonjour,

Je voudrais changer la langue locale d'un compte utilisateur OOo.

J'ai essayé la macro, mais sans succès :

Sub Main oConfigAccess = GetConfigAccess( "/org.openoffice.Setup/L10N", True ) oConfigAccess.ooLocale = "de" oConfigAccess.commitChanges() End Sub

Function GetConfigAccess( ByVal cNodePath As String,ByVal bWriteAccess As Boolean,Optional bEnableSync,Optional bLazyWrite) As Object If IsMissing(bEnableSync) Then bEnableSync = True If IsMissing( bLazyWrite ) Then bLazyWrite = False Dim oConfigProvider, oConfigAccess as Object oConfigProvider = GetProcessServiceManager.createInstanceWithArguments("com.sun.star.configuration.ConfigurationProvider",Array( MakePropertyValue( "enableasync", bEnableSync))) If bWriteAccess Then cServiceName = "com.sun.star.configuration.ConfigurationUpdateAccess" Else cServiceName = "com.sun.star.configuration.ConfigurationAccess" EndIf oConfigAccess = oConfigProvider.createInstanceWithArguments( cServiceName, Array( MakePropertyValue( "nodepath", cNodePath ), MakePropertyValue( "lazywrite", bLazyWrite ))) GetConfigAccess() = oConfigAccess End Function

Didier Dorange-Pattoret www.dmaths.org

Cordialement.