ein Textrange in Writer verfügt über die Eigenschaft (Struct) .CharLocal:
http://www.openoffice.org/api/docs/comm ... ocale.html
mit folgendem Code (aus Pitowniak Kapitel 9.5), kann man so Land und Sprache ändern:
Code: Alles auswählen
Dim aLocale
aLocale = oCursor.CharLocale 'Es kann auch eine Kopie sein
aLocale.Language = "fr" 'Setzt Locale auf die Sprache Französisch
aLocale.Country = "CH" 'Setzt Locale auf das Land Schweiz
oCursor.CharLocale = aLocale 'Weist den Wert neu zu
Allein klappt für .Variant (siehe obiger Link) die Änderung nicht:
Code: Alles auswählen
Dim aLocale
aLocale = oCursor.CharLocale
aLocale.Language = "es"
aLocale.Country = "ES"
aLocale.Variant = "Traditional_WIN"
oCursor.CharLocale = aLocale
Was mache ich falsch?
Gruß
Stephan