Hallo,
Matthias Frey schrieb:
Hallo,
ich hoffe, ich bin hier nicht völlig fehl am Platz.
Immer mehr Nutzer meiner Software "nerven" mich und wollen eine
Unterstützung von OpenOffice. Die bisherige Methode, mit der ich
andere Textverarbeitungen steuere, funktioniert mit OO nicht
(seit StarOffice 4.1). Nun ist die Methode sowieso nicht so sauber, so
dass ich einen anderen Weg einschlagen möchte.
Ich habe hier eine Komponente mit der ich schon erste Versuche
teilweise erfolgreich durchgeführt habe.
Die Datei "OO DevelopersGuide.pdf" habe ich mir schon mal geladen,
ist mit 1141 Seiten doch ein bischen ... unhandlich. Könnt Ihr mir
da weiterhelfen? Danke.
Ich benötige folgende Funktionen:
1. Einfügen eines Textes in ein Dokument.
Da dürfte insertString wohl das richtige sein, es funktioniert zumindest
prächtig.
2. Einfügen von Text im RTF-Format.
Manuell über die Zwischenablage gehts, aber wie programmier ich das?
Am besten nicht über die Zwischenablage sondern, über Datei einfügen.
Also den RTF-Text speichern und mit InsertDocumentFromUrl an die
Cursorpsoition einfügen. Das geht mit RTF sehr gut.
3. Finden des aktuellen Documentes
Es gibt viele Beispiele, die ein vorhandenes oder neues Dokument öffnen.
Mein Programm geht aber davon aus, dass das zu benutzende Dokument
bereits vom Anwender geöffnet wurde.
Hier eine mögliche Lösung:
function fensterwaehlen(dateiname as string) as object
GlobalScope.BasicLibraries.LoadLibrary("Tools")
Dim oDesktop As Object, oDocs As Object
Dim oDoc As Object, oComponents As Object
gefunden=false
oComponents = StarDesktop.getComponents()
oDocs = oComponents.createEnumeration()
Do While oDocs.hasMoreElements()
oDoc = oDocs.nextElement()
On Error Goto Weiter
datei=odoc.geturl()
FileN=FileNameoutofPath(datei)
if FileN=dateiname then
fensterwaehlen=odoc
gefunden=true
end if
weiter:
Loop
if gefunden=false then fensterwaehlen=stardesktop.currentcomponent
end Function
4. Eine Liste aller geöffneten Dokumente erhalten.
Solltest Du aus der obigen Funktion ableiten können.
mfg
Micky
--
FAQ zu Starbasic -> http://www.starbasicfaq.de
Volltextsuche in SO/OOo -> http://www.dannenhoefer.de/down
music.funplayer mp3-Datenbank u. Player -> http://www.dannenhoefer.de/fun
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
