https://bugs.documentfoundation.org/show_bug.cgi?id=88928
Bug ID: 88928
Summary: Open Basic IDE via macro command uno.BasicIDEAppear
does not work
Product: LibreOffice
Version: 4.3.3.2 release
Hardware: x86 (IA32)
OS: Linux (All)
Status: UNCONFIRMED
Severity: normal
Priority: medium
Component: BASIC
Assignee: [email protected]
Reporter: [email protected]
The code:
sub sOpenMacroEditor 'Assigned to a button to speed up opening the macro editor
in this code.
'to assign it to a button:
ooCalc/Tools/Customize/ToolBars/Add.../OpenOffice.org
Macros/ThisFilename/Standard/Module1/sOpenMacroEditor/Add
dim aOptions(5) as New com.sun.star.beans.PropertyValue
aOptions(0).Name="LibName": aOptions(0).Value="Standard" 'Name of library
aOptions(1).Name="Name": aOptions(1).Value="Module1" 'Name from Module or
Dialog
aOptions(2).Name="Line": aOptions(2).Value=440 'Linenumber to set the
cursor. NOTE: I which I could go to the last cursor or a marker...
aOptions(3).Name="Type": aOptions(3).Value="Module" 'Module or Dialog
aTemp=split(ConvertFromURL(ThisComponent.GetURL),"\")
aTemp=split(aTemp(uBound(aTemp)),".") 'Get filename
aOptions(4).Name="Document": aOptions(4).Value=aTemp(0) 'Name of the
document = filename without extention
oFrame = CreateUnoService("com.sun.star.frame.Frame")
oDispatchHelper = createUnoService("com.sun.star.frame.DispatchHelper")
oTemp = oDispatchHelper.ExecuteDispatch(oFrame, ".uno:BasicIDEAppear" ,"" ,0
,aOptions())
end sub
seems not to work any more for at least 6 years!
A workaround is to write a subroutine in the module to open, like the
following:
Sub openBasicIDE
thisComponent.makeError
End Sub
See the following discussion:
https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=75031
--
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
