Starbasic Tools von Michael Dannenhöfer

Autor:	Michael Dannenhöfer

Internet:	http://www.dannenhoefer.de

Mail:	Starbasic@dannenhoefer.de

Stand:	28.05.2005

Die folgende Funktionen sind von mir selbst oder von mir aus anderen Funktionen abgeleitet und können von jedem weiterverwendet werden. Quellenangabe wäre schön :-).

Natürlich kann ich für die Funktionen keinerlei Haftung übernehmen.

function GetItemPosFromArray(sList() as string, sItem as String)

Die Funktion gibt das erste Auftreten eines Strings in einem Array von Strings zurück.

function GetDocType(oDocument) as String

Die Funktion giebt den Dokumententyp des gewählten Dokumentes zurück. Dieses Makro ist eine Erweiterung des Originals aus der Bibliothel Tools.

ListOfAllUrls(ListOfUrl())

Die Prozedure liest alle geöffneten URL-Pfade aus. Neue Dateien, die noch nicht gespeichert worden sind, werden nicht erkannt. ("UnbenanntX").

Beispiel:

Sub BeispielListAll

dim listall(1)

listofallurls(listall())

for i=0 to ubound(listall())-1

msgbox "URL "+i+": "+listall(i)

next

End Sub

GetNameOfAllSheets(listall(),odoc)

Die Prozedur gibt ein array mit den Namen der Sheets zurück

Der Aufruf erfolgt über

dim listall(1)

GetNameOfAllSheets(listall(),odoc)

Function GetPosActiveSheet(oDoc as object) as Integer

Liest die Position des aktiven Sheets aus. Daran denken das die Zählung bei 0 anfängt.

Sub JumpToSheetsName( myDoc as Objekt, sheetsname as String)

Aktiviert das ausgewählte Sheet nach dem Namen.

Sub JumpToSheetsNumber( myDoc as Objekt, sheetsnumber as String)

Aktiviert das ausgewählte Sheet nach dem Index

Sub SetDocPageStyle(odoc as object,strNew as String)

Ändert die Seitenvorlage

Sub MoveCursorToBookmark(oDoc as Objekt, strBookmark as String)

Springt mit dem sichtbaren Cursor an eine Textmarke

Sub addLibraries(quell_LibName as String, ziel_LibName as String)

Kopiert die angebene Bilbliothek von der geöffneten Datei in die Standard Bibliothek

sub addLib(oGlobalLib as object, oLib as object, quelle_lib as string, ziel_lib as string)

Kopiert die angebene Bilbliothek von der geöffneten Datei in die Standard Bibliothek

Dies ist die Routine zu addLibaries, damit sowohl die Dialoge wie auch die Module kopiert werden.

Sub removeLibraries(Libname as String)

Löscht die angebene Bibliothek. Module und Dialoge

getRow und getColumn

Liest die aktuelle Zeile und Spalte in einem Calc-Dokument aus.

Sub ChangeVariable(oDocument as object,Variable,NewContent as String)

Ändert den Wert einer Variablen und aktualisiert die Ansicht

Function GetVariable(oDocument as object,Variable) as string

Liest den Wert einer Variablen eines Textdokumentes aus.

sub ChangeUserField (oDocument as Object,StrUserField as String, StrContent as String)

Ändert den Wert eines Benutzerfeldes und aktualisert die Ansicht.

Function GetUserField (oDocument as Object,StrUserField as String) as string

Liest den Wertes eines Benutzerfeldes aus.

Sub ChangeDocUserField(odocument as object, x as integer, newt as string)

Ändert den Wert des Benutzerfeldes in den Eigenschaften des Dokumentes.

Function GetDocUserField(odocument as object,x as integer) as string

Liest den Wert des Benutzerfeldes in den Eigenschaften des Dokumentes.

sub Zellschutz(myCell as Object, gesperrt as boolean, formelhidden as boolean,ausblenden as boolean,druck as boolean)

Stellt den Schutzstatus einer Calc-Zelle ein. Achtung die Tabelle selber darf nicht geschützt sein.

Function TabellenName as String

Übergibt den aktuellen Tabellennamen in Calc. Kann auch in einer Zelle ( =Tabellenname() ) verwendet werden.

Function GetCursor( oDoc As Object ) As Object

Mit dieser Funktion kann man den sichtbaren Cursor an den leistungsfähigeren nichtsichtbaren Cursor übergeben.

Sub SetViewCursor ( oDoc as object, oCursor as object)

Setzt einen nichtsichtbaren Cursor auf den sichtbaren Cursor.

Function GetListAllDatabases(ListofAllDatabases())

Liest alle vorhandenen Datenbank in ein array.

Sub SetNeuerAutor

Setzt aus einer Inputbox einen neunen Autor als Ersteller.

function fensterwaehlen(dateiname as string) as object

Mit dieser Funktion kann gezielt ein geöffnetses Fenster als doc-Object aufgerufen werden.

Voraussetzung ist das der Name bekannt ist.

Ist das Fenster nicht vorhanden wird das aktuelle übergeben.

sub allaheetsA1 (myDoc as Object, row as integer,col as integer)

Diese Routine setzt den aktuellen Cursor von allen Sheets auf eine bestimmte Zelle.

function GetAndSetNumber as string

Funktion um eine Nummer aus einer Datei zu lesen und die Nummer danach automatisch hochzustetzen.

Der Dateiname muß angepaßt werden und der erste Werte muß von Hand erzeugt werden.

sub gotoNextParagraph,sub gotoPreviousParagraph

Zwei Routinen die man mit einem Tastaturbefehl verknüpfen kann, um dann zwischen den Absätze zu springen.

function getpages as string

Liest die Gesamtanzahlseiten aus einem WriterDokument.

function GetPropertyValandInd(aProperty as array,propName as string)

Liest zu einer gewüschten Eigenschaften eines Proprtyarrays (com.sun.star.beans.Propertyvalue) den Wert und Index aus. Zusätzlich wir der Name mit zurückgegeben.

Der Rückgabewert ist ein Array mit drei Elementen.

function getParagraphs(odoc as object, optional ignoreEmpty as boolean)

Liest die vorhandenen Absätze aus dem Writerdokument. Mit dem Paramater ignoreEmpty werden leere Absätze ingoriert.

function hasParagraphFormat( oPara as object) as integer

Die Funktion liefert die Anzahl der Textteile eines Absatzes zurück.

Jeder Textteil steht für eine eigene Formatierung.

Ist der Rückgabewert 1, besteht der Absatz nur aus einer Formartierung.

function getProperty( arProps, sName As String, Optional debug as Boolean )

Die Funktion liest den Wert zu einem durch sName bestimten Property aus

Als Unterstützung zum debuggen kann man sich auch einen Wert übergeben lassen wenn der Eintrag nicht vorhanden ist.

Michael Dannenhöfer

2003-11-17T21:21:01