OpenOffice.info

Ich vergass:

http://www.dannenhoefer.de/faqstarbasic/index.html

[quote="klaus_harrer"]Gibt es schon eine Seite wo OpenOffice Macros gesammelt werden und zum Download verfügbar sind?[/quote]

Es gibt ein paar Anfänge. Zum einen gibts ein Forum unter

[url]http://www.kaldewey-online.de/postnuke/modules.php?op=modload&name=phpBB_14&file=index&action=viewforum&forum=2[/url]

wo einige Macros abgelegt sind. Nicht zum Download, eher Copy und Paste.

Dann gibt es http://www.ooomacros.org jedoch in englisch. Aber das ist das wohl interessanteste Projekt. Wie ich der englischen Mailingliste mitbekommen haben, gibts ein Projekt, das sogenannte Snippets sammelt. Sie haben ein XML-Format definiert. Das Ziel ist eine Sammlung von Scripts. Ich glaube sie wollen auch einen Installer machen, wo das einfach installiert werden kann. Wirklich konkret ist das noch nicht.


Vielleicht kennst du schon Andrew Pitonyaks Macrosammlung. Ein Writer-Dokument (aktuellste Version in englisch) mit einer Unzahl prktischer Beispiele. Wird wohl mal ein Buch werden. Wohl was vom besten das es zurzeit gibt. http://www.pitonyak.org/oo.php

Wie ich weiss wird bald von SuSE Press ein Buch herauskommne, welches sich mit OpenOffice.org Programmierung befasst. Das sieht vielversprechend aus. Ist aber noch nicht im Handel.

Meine Wenigkeit hat ein paar Dokumente erstellt, welche zwar keine Skripts sammelt sondern eher eine Programmiereinführung mit Codebeispielen ist. Zu finden unter http://www.bcwin.ch/ooo/basic/

Weiter bin ich selbst daran involviert ein OOO-Wiki für freie Dokumentation aufzubauen. Auch das ist erst im Entstehen, aber da es ein offenes Wiki sein soll ist da Platz für freie Kreativität, was auch eine Macro-Sammlung sein kann.

Aber um deine Frage präzise zu beanworten: Nein, gibt es nicht.

Hallo openmind

Danke für deine Hilfe. Mach weiter so.
Ich habe in "ct" einen Leserbrief gelesen das wenn es genug Macros für Openoffice geben würde er lieber Openoffice statt Exel nutzen würde.
Gibt es schon eine Seite wo OpenOffice Macros gesammelt werden und zum Download verfügbar sind?

MfG
Klaus

If Not oDocument.Sheets.hasByName( "Steuern" ) Then 
	oDocument.Sheets.insertNewByName("Steuern", 3) 
End If 

Weil getByName kein boolean Rückgabewert hat sondern ein Object. Aber schau mal hier. Das geht ziemlich elegant und du warst auch schon ganz nahe dran:

http://api.openoffice.org/docs/common/ref/com/sun/star/container/XNameAccess.html

Nimm die Methode hasByName vom XNameAccess.

[code]If Not oDocument.Sheets.hasByName( "Steuern" ) Then
oDocument.Sheets.insertNewByName("Steuern", 3)
End If [/code]

Hallo

Ich möchte Abfragen ob das Tabellenblatt "Steuern" schon existiert .

Dim oDocument, oSheet, oCell, oCell1, oDate, oDate1, oOrt, oTabelle, oNewCell as Object
Dim Zelle0 as Integer
Zelle0 = 2
oDocument=ThisComponent
oSheet=oDocument.Sheets(0)
oCell=oSheet.GetCellByPosition(3,Zelle0)


If Not oDocument.Sheets.GetByName( "Steuern" ) Then
oDocument.Sheets.insertNewByName("Steuern", 3)
oTabelle = oDocument.Sheets(3)
oNewCell = oTabelle.GetCellByPosition(0, 0)
oNewCell.String = "Von"
End If

Leider funktioniert das nicht. Woran könnte das liegen?

MfG
Klaus