OpenOffice.info

Dokumentation im Netz: http://api.openoffice.org/SDK/index.html

Aloha

[quote="WoOolf"]Wo kann man denn sowas nachschlagen, wenn man es nicht weiss?
Gibt es evtl. eine gute Quelle?[/quote]
Für sowas im speziellen wüsste ich keine gute Quelle, das meiste ergibt sich durch das Arbeiten mit xray, ansonsten liegt es irgendwo in den Foren oder in Dokumenten wie dem von Pitonyak.

oDoc = thisComponent
Dim aEventArgs(1) as new com.sun.star.beans.PropertyValue

aEventArgs(0).Name = "EventType"
aEventArgs(0).Value = "Script"
aEventArgs(1).Name = "Script"
aEventArgs(1).Value = "vnd.sun.star.script:Bibliotheksname.Modulname.Makroname?language=Basic&location=document"

oDoc.Events.replaceByName("OnLoad",aEventArgs)

Aloha

Dem Dokument das Ereignis per Makro zuweisen kannst Du folgendermassen:

[code]oDoc = thisComponent
Dim aEventArgs(1) as new com.sun.star.beans.PropertyValue

aEventArgs(0).Name = "EventType"
aEventArgs(0).Value = "Script"
aEventArgs(1).Name = "Script"
aEventArgs(1).Value = "vnd.sun.star.script:Bibliotheksname.Modulname.Makroname?language=Basic&location=document"

oDoc.Events.replaceByName("OnLoad",aEventArgs)[/code]

DIM iSchalter as INTEGER
SUB Main 

iSchalter = 0

' mach was
' ...

call Unterprogramm

If iSchalter = = Then 
' weitere Anweisungen

Else
End If

End Sub

Sub Unterprogramm

iSchalter = 1
End Sub

If ThisComponent.BasicLibraries.hasByName( "myLib" ) Then
   myLib = ThisComponent.BasicLibraries.getByName( "myLib" ) 

1. Setze einen Schalter (wenn überhaupt nach dem Aufruf der 2. [color=#008000]SUB [/color]noch Code kommt)

[code]DIM iSchalter as INTEGER
SUB Main

iSchalter = 0

' mach was
' ...

call Unterprogramm

If iSchalter = = Then
' weitere Anweisungen

Else
End If

End Sub

Sub Unterprogramm

iSchalter = 1
End Sub[/code]

Das Nutzen von Sprunganweisungen gilt als "unsaubere" Programmierung.



2. Lokale (dokumentenspezifische) [u]Bibliotheken [/u]prüfst Du mit
[code]If ThisComponent.BasicLibraries.hasByName( "myLib" ) Then
myLib = ThisComponent.BasicLibraries.getByName( "myLib" ) [/code]

und holst sie mit [color=#008000]getByName [/color]- falls vorhanden.
In diesen finden sich die Module - ebenfalls wieder mit [color=#008000]hasByName [/color] zu prüfen, den Inhalt holst Du Dir als [color=#008000]STRING [/color]mit [color=#008000]getByName [/color].
Dann kannst Du schauen, ob der [color=#008000]STRING [/color]Dein Makrocode [color=#0040FF]SUB myMakro[/color] enthält.



3. Zugriff auf OOo-Bibliotheken

Erfolgt wie in 2., unter Austausch von [color=#008000]ThisComponent [/color]gegen [color=#008000]GlobalScope[/color].


Suche hier im Forum nach [color=#0040FF]XRAY [/color]und installiere und benutze es, dann wird Dir vieles klarer.
[color=#0040FF]XRAY [/color]selbst hat in seinen Bibliotheken Beispielcode zum Zugriff aus Basic-LIBs.

Hilft Dir das weiter?

ad 1:

Der Befehl den Du brauchst heisst "exit sub" bzw "exit function".

"exit function" deswegn, weil Du ja beide Makros beenden willst, daher sollte die aufGErufene Sub keine Sub sondern eine Function sein. Den Rückgabewert der Function benutzt Du dann in der aufrufenden Sub um auch diese zu beenden.

ad 2:
Das Überprüfen selbst ist kein Problem. Ruf das Makro einfach per Modulname.Makroname auf.

ad 2 und 3:
Willst Du ein Virus programmieren?

g