Helge Hansen wrote: > Weiß jemand wie ich die Versionen aus der Versionsverwaltung > zählen kann? Das folgende Makro zeigt die Anzahl der gespeicherten Versionen an. Hilft Dir das?
' ==== Code === Sub ooo_showVersionsCount if ThisComponent.supportsService( _ "com.sun.star.document.OfficeDocument" ) then oDok = ThisComponent oDokStor = oDok.DocumentStorage if oDokStor.hasByName( "Versions" ) then oDokVersions = oDokStor.getByName( "Versions" ) print "Anzahl Versionen dieses Dokuments: " & _ UBound( oDokVersions.ElementNames() ) +1 end if end if End Sub ' ======= Cheers Winfried -- re-Solutions.de Software Test Engineering Mainz Germany Europe meine OOo Seiten: http://www.re-solutions.de/ooo/ --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
