Umsteigen auf OpenOffice: Von VBA zu OpenOffice-Basic

Eigenschaften zuweisen

Die darin verwendete Struktur objLocalSettings kann nun verschiedene Eigenschaften erhalten:

Dim objLocalSettings As New com.sun.star.lang.Locale
[...]
objLocalSettings.Language = "de"
objLocalSettings.Country = "de"

Man könnte das ebenso über ein Datenfeld realisieren, das mit den Wertepaaren Name und Value gefüllt und anschließend der Variablen lngNumberFormatId zugewiesen wird:

Dim objPropLocalSettings(1) As New com.sun.star.beans.PropertyValue
objPropLocalSettings(0).Name = "Language"
objPropLocalSettings(0).Value = "de"
objPropLocalSettings(1).Name = "Country"
objPropLocalSettings(1).Value = "de"
lngNumberFormatId = objNummerFormat.queryKey(strNummerFormat, objPropLocalSettings(), True)