[Solved] How to change the default language setting in a ...

[aharnack]

Hi,

I use to write documents in two different languages and have to adopt the language settings accordingly and rather frequently (Tools > Options... > Language Settings > Languages > Default languages for this document (For this document only)). I tried to record this into two macros, but all I got was this (which does nothing):

Code: Select all

sub SetEnglich
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:OptionsTreeDialog", "", 0, Array())


end sub

I bet I only need to find the right property, but I so far I tried in vain. Does anybody know how to change the default language setting for the document from within a macro?

Thanks,
Andreas

PS: OpenOffice 2.4, Microsoft XP

[Villeroy]

Why not use styles bound to shortcuts? Changing the language through hard formatting has several disadvantages.

[Hagar Delest]

Before going to a macro, have you read that: [Tutorial] Spell check and Language configuration? Changing the language is not so difficult now. Either a right click to edit the Default paragraph style or Tools>Language>For all text.

Thanks to add '[Solved]' at beginning of your first post title (edit button) if your issue has been fixed.

[aharnack]

Why not use styles bound to shortcuts?

Well, styles are a kind of taken. I use them quite heavily and consequently have a rather significant number of customized styles. Using them to control spell checking as well would imply to maintain many of them twice, once for each language. Besides, I think that in general that approach is wrong. A headline is a headline, no matter in what language the words are. So unless for special cases, were the language is given and unlikely to change (let's say you have a headline style specifically to quote Shakespeare) or spell checking should be turned off completely (like for code examples or keywords), I feel that the document's default language is a much better place to specify it. After all, it works perfectly well, only that I feel it's a bit annoying to set it. (I counted 8 clicks plus a search in a rather long list.)

[Villeroy]

...I feel that the document's default language is a much better place to specify it. After all, it works perfectly well, only that I feel it's a bit annoying to set it. (I counted 8 clicks plus a search in a rather long list.)

You can store copies of the respective template with the respective default language.
Tools>Options...Lang...Western default language for new documents plus "For current document only". Then File>Templates>Save... [myTemplate_enGB]
Anyway,
ThisComponent.CharLocale is a locale struct.

Code: Select all

Dim loc as new com.sun.star.lang.Locale
loc.Language = "en"
loc.Country = "US"
ThisComponent.CharLocale = loc

[aharnack]

Anyway,
ThisComponent.CharLocale is a locale struct.

Code: Select all

Dim loc as new com.sun.star.lang.Locale
loc.Language = "en"
loc.Country = "US"
ThisComponent.CharLocale = loc

That looks great.

Thanks,
Andreas