Hallo,
Karl Gust-Stiehl schrieb:
> Ein Beispiel für den Zugriff auf ....wäre willkommen
> Titel
> Thema
> Schlüsselwörter
>
> evtl. Infofelder
> (stehen unter "Benutzer")
Sub Main
x = ThisComponent.getDocumentInfo
k = "Title: " & x.title & CHR(13) & _
"Thema: " & x.Subject & CHR(13) & _
"Schlüsselwörter: " & x.Keywords & _
CHR(13) & CHR(13)
For i = 0 to x.GetUserFieldCount() - 1
info_name = x.GetUserFieldName(i)
info_wert = x.GetUserFieldValue(i)
k = k & x.GetUserFieldName(i) & ": " & _
x.GetUserFieldValue(i) & CHR(13)
Next i
msgbox k
End Sub
> Würde ich in dem Buch z.B. finden, wie ich ein Ereignis
> "sheet.change"
> abfragen kann
derzeitig nein.
Aber das ginge bei einem Tabellendokument beispielsweise so:
'-----------------------------------------
Global oListener
Sub Listener_registrieren()
oDocView = ThisComponent.getCurrentController
oListener = CreateUnoListener( "jms_",
"com.sun.star.sheet.XActivationEventListener" )
oDocView.addActivationEventListener(oListener)
End Sub
Sub Listener_entfernen()
ThisComponent.getCurrentController.removeActivationEventListener(oListen
er)
End Sub
Sub jms_activeSpreadsheetChanged(oEvent)
aktives_blatt = ThisComponent.CurrentController.getActiveSheet.Name
Msgbox "aktiviertes Blatt ist: " & aktives_blatt
End Sub
'-------------------------------------------
Kopiere den ganzen Code in eine Dokumentbibliothek und bestimme das
Makro Sub Listener_registrieren() als Autostart für das Dokument
(Ereignis: Dokument öffnen) und Sub Listener_entfernen() für das
Schliessen-Ereignis ds Dokuments.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
