> > 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
> -- 

Hi Winfried, *!

Der Code hilft mir insofern, dass er als Version das anzeigt, was ich wissen
will ;-) Ich halte mich eigentlich für einen nicht schlechten Programmierer.
Meine Maschinenbau-Kollegen behaupten auch gerne, dass ich den Beruf
verfehlt habe, aber mit StarBasic bin ich leider nie richtig warm geworden.
Vielleicht bekomme ich es dennoch hin das Ergebnis in mein Dokument in Form
eines Feldbefehls ausgeben zu lassen. Gegen weitere Hilfe würde ich mich
allerdings bestimmt nicht wehren :-)

Vielen Dank erstmal.

Helge

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Antwort per Email an