Inhaltsverzeichnis

• OpenOffice installieren

• Konsolenaufrufe

• Openclipart

• Writer Tabellenzeile mit variabler Spaltenzahl ersetzen

OpenOffice installieren

Vorbereitungen:
Datei openoffice3xxx.tar.gz in einem leeren Verzeichnis auspacken.
Die rpms für die Decktopintegration befinden sich in einem Unterordner.
Für KDE die entsprechende rpm in das Verzeichnis kopieren in das zuvor OpenOffice entpackt wurde.

Installation:
Konsole starten und in das Verzeichnis wechseln in das OpenOffice ausgepackt wurde.
Nun mit <su> <Passwort> root werden.
Mit dem folgendem Befehl wird OpenOffice installiert.
rpm -Uvih *rpm

Abschluss:
Auf der rootkonsole SuSEconfig starten damit die Desktopintegration greift.

Konsolenaufrufe

Vorlagen und Dokumente

soffice .uno:NewDoc

Öffnendialog

soffice .uno:Open

Datenbank

soffice ".component:DB/DataSourceBrowser"

Makro

soffice macro:///Standard.Module1.xyzmacro

Openclipart

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.

Writer Tabellenzeile mit variabler Spaltenzahl ersetzen

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