basic

warning: Creating default object from empty value in /data/web/1/000/027/003/273448/htdocs/panticz.de/modules/taxonomy/taxonomy.pages.inc on line 33.

OpenOffice Macros with Basic

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
Syndicate content