> Hallo Liste,
Hallo Kornelia,
> Nun möchte ich eine eigene Versionsnummer (entweder in einer
> separaten
> Tabelle oder per Makro) erzeugen und als eine Art Feld
> ähnlich wie im
> Writer in der Kopfzeile verwenden.
> Mir ist, als ob es dieses Thema schon einmal gab, aber ich konnte es
> nicht finden. Vielleicht irre ich mich auch.
Ja, gab's schon mal, von mir. Ich habe dieses Makro:
Sub ooo_showVersionsCount
dim Versionsnummer as integer
if ThisComponent.supportsService(
"com.sun.star.document.OfficeDocument" ) then
oDok = ThisComponent
oDokStor = oDok.DocumentStorage
if oDokStor.hasByName( "Versions" ) then
oDokVersions = oDokStor.getByName( "Versions" )
Versionsnummer = UBound( oDokVersions.ElementNames()
)
odoc = thiscomponent
otext = odoc.text
ocursor =
ThisComponent.CurrentController.ViewCursor()
otext.insertString (ocursor,Versionsnummer,false)
end if
end if
End Sub
bekommen, das die Anzahl der im Dokument gespeicherten Versionen ausgibt,
aber wie ich das so einfügen kann, dass es wie ein Feld arbeitet habe ich
auch noch nicht herausgefunden. Habe gerade andere Baustellen, die wichtiger
sind (z.B. Dokumente mit Inhalt zu füllen ;-)
> Viele Grüße
> Kornelia
Gruß Helge
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
