[users] Macro for setting the language

[Herbert Eppel]

I started experimenting with macros, and I tried a very simple macro for 
setting the language - all it does is "Select All", then set the 
language to German via the Character menu (see below).

However, it does not work, i.e. when I run the macro, the Character menu 
stays open, and the language remains set to the default language :-(

Is it a bug?
Am I doing something wrong?
Thank you.
Herbert Eppel
www.HETranslation.co.uk
**************************************************************
sub GE
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Language"
args2(0).Value = 1031
dispatcher.executeDispatch(document, ".uno:Language", "", 0, args2())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]