> > > 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?
Habe mir das Makro wie folgt geändert: ' ========= Code ============ 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 ' ========================== Damit bekomme ich jetzt die Anzahl der Versionen aus der Versionsverwaltung an der Stelle ausgegeben, an der ich den Cursor positioniert habe. Allerdings funktioniert das ganze nicht, wenn der Cursor in der Fußzeile steht. So eine Versionsnummer sollte allerdings auf jeder Seite des Dokuments stehen, damit keine falschen Seiten eingeschummelt werden können... Außerdem hatte ich mir vorgestellt, dass man über "Einfügen" -> "Feldbefehl..." -> "Makro ausführen" das Makro ausführen lassen kann und die Ausgabe an der Stelle erscheint, wo der Feldbefehl eingefügt wurde. Das geht so aber auch nicht. Kann mir jemand sagen warum oder was ich anders machen muss, damit es so funktioniert? Gruß Helge --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
