Hallo Helge, hab Dein Makro kopiert, Zeilenumbrüche entfernt und ausprobiert bekomme es aber nicht zum Laufen: > 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 'Basic oder Laufzeitfehler. > Eigenschaft oder Methode nicht gefunden. > ocursor = > ThisComponent.CurrentController.ViewCursor() > otext.insertString (ocursor,Versionsnummer,false) > end if > end if > End Sub
Siehe oben in der Zeile otext = odoc.text kommt die Fehlermeldung, die ich dort beschrieben hab. Ob das an der Version 2.3.1 liegt? Viele Grüße Kornelia --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
