OpenOffice Macros with Basic
- Read more about OpenOffice Macros with Basic
- Log in to post comments
Create new Macro
Extras > Makros > Makros verwalten > Makro...
Meine Makros > Standard > Neu
# open a external application (v1)
Sub Main
item = ThisComponent.getCurrentSelection.String
If len(item) > 0 then
rem msgbox "Selection: " & item
item = UCase(item)
oService = createUnoService("com.sun.star.system.SystemShellExecute")
oService.execute("/media/programme/starter/scripts/Lager.sh", "item_id=" & item, 0)
EndIf
End Sub
# open a external application (v2)
Sub Main
selectedRow = ThisComponent.CurrentSelection.getRangeAddress.StartRow
itemId = ThisComp