
Meine Funktion steht im Modul "Standard.Module1"
Ich sag schon mal Merci vielmals!
Moderator: Moderatoren
Code: Alles auswählen
Set oManager = CreateObject("com.sun.star.ServiceManager")
Set oDesktop = oManager.CreateInstance("com.sun.star.frame.Desktop")
Set oDispatcher = oManager.CreateInstance("com.sun.star.frame.DispatchHelper")
sMacroURL = "macro:///Standard.Module1.MeinMacro"
vResult= oDispatcher.executeDispatch(oDesktop, sMacroURL, "", 0, mNoArgs())