Aktualisiert am
OpenOffice
Inhaltsverzeichnis |
|
|
|
Vorbereitungen: |
|
|
|
Vorlagen und Dokumente |
soffice .uno:NewDoc |
Öffnendialog |
soffice .uno:Open |
Datenbank |
soffice ".component:DB/DataSourceBrowser" |
Makro |
soffice macro:///Standard.Module1.xyzmacro |
|
|
Um die Cliparts von Open Clip Art in Openoffice zu benützen bedienen wir uns aus dem OSS Repository der openSUSE Version. Daraus installieren wir mit YaST das Paket OpenOffice_org-openclipart das die Gallerie und die Pfade zu den Cliparts beinhaltet, und das Paket openclipart-png das die Cliparts an sich beinhaltet. Nach dem installieren beider Pakete starten wir Openoffice und melden die Gallerie unter <Extras><Optionen><Pfade> an. Damit die Gallerie sich mit den Cliparts füllt müssen wir Openoffice neu starten. |
|
|
|
REM ***** BASIC ***** REM 1. Die zu kopierende Zeile markieren und kopieren REM 2. Cursor in Zeile Setzen die ersetzt werden soll REM 3. Makro ausführen sub Main dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "Type" args1(0).Value = 1 dispatcher.executeDispatch(document, ".uno:SplitTable", "", 0, args1()) dispatcher.executeDispatch(document, ".uno:DeleteRows", "", 0, Array()) dim args2(1) as new com.sun.star.beans.PropertyValue args2(0).Name = "Count" args2(0).Value = 1 args2(1).Name = "Select" args2(1).Value = false dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args2()) dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array()) dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array()) dispatcher.executeDispatch(document, ".uno:MergeTable", "", 0, Array()) dim args3(1) as new com.sun.star.beans.PropertyValue args3(0).Name = "Count" args3(0).Value = 2 args3(1).Name = "Select" args3(1).Value = false dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args3()) dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array()) dispatcher.executeDispatch(document, ".uno:MergeTable", "", 0, Array()) end sub |
|
|
|
|