> hab Dein Makro kopiert, Zeilenumbrüche entfernt und
> ausprobiert bekomme
Danke für die Lorbeeren, aber ich habe das Makro auch nur über diese Liste
bekommen ;-)
> es aber nicht zum Laufen:
Ich kann Dir da leider nicht weiterhelfen, da ich mit dem Star Basic nicht
auch nicht umgehen kann. Mir ist nur gerade im Betreff aufgefallen, dass Du
das in einer Calc-Tabelle benutzen möchtest. Das Makro habe ich mir damals
für ein Writer-Dokument machen lassen.
> > 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
Vielleicht weiß ja jemand anderes, wie man das Makro an Calc anpasst.
> 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
Gruß Helge
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
