How to call a macro given as string?

[Toxitom]

Hey,

my question is, how to call in Basic a macro, when I get only the Name as a string?

For example: I do have 3 macros, lets call then "macro1", "macro2" and "macro3".
Now I create an appliation string (array), which will include the Name of the macros to call. Now - haw can I call the Macro directly?

OK, I can use a "select Case" struture and can do a string-comparison, but is there a direct way?

Something like:

Code: Select all

sub Start
   aListe = array("Macro1", "Macro3", "Macro2")
   Startmacro(aListe)
end sub

sub startmacro(aListe)
   call (aListe(1))  ??????????????
end sub

sub macro1
  ...
end sub

sub maro2
  ...
end sub

sub macro3
  ...
end sub

Any suggestions?

thanks
Thomas

[TerryE]

google "call macro site:wiki.services.OpenOffice.org"; third topic

[pitonyak]

You need the full path to the macro

Code: Select all

Sub RunGlobalNamedMacro
  oDisp = createUnoService("com.sun.star.frame.DispatchHelper")
  sMacroURL = "macro:///Gimmicks.AutoText.Main"
  oDisp.executeDispatch(StarDesktop, sMacroURL, "", 0, Array())
End Sub