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