Re: [de-users] Re: Makro wird nicht mehr ausgeführt

Am 2022-11-27 um 09:22 schrieb Robert Großkopf:
> Hallo Franklin,
> > Basic Laufzeitfehler Eigenschaft oder Methode nicht gefunden:
> > supportsService.
> >
> > Die auslösende Zeile im Makro, die auf Empfehlung eines
> > Listenteilnehmers eingefügt wurde und mit der erreicht werden
> > sollte, dass das Makro nur bei Calc-Dokumenten zur Ausführung
> > kommt, lautet:
> >
> > IF NOT ThisComponent.supportsService (
> > "com.sun.star.sheet.SpreadsheetDocument" ) then exit Sub
>
> Vermutlich versuchst Du, das Makro direkt aus dem Editor zu starten.
> Da gibt es supportsService erst einmal nicht.

Wie gesagt kam diese Fehlermeldung beim LibO-Neustart.

> Du musst schon irgendein Dokument geöffnet haben. Bei mir
> funktioniert das jedenfalls unter LO 7.4.3.2

O.k., danke fürs Testen ... dennoch wird der gesamte Code auch bei
geöffnetem Calc-Document, insbesondere die Einfügung des formatierten
Datums in die Fusszeile, so nicht mehr ausgeführt:

*x- - - - - - - - - - - - - > Schnipp < - - - - - - - - - - - -x*

REM  *****  BASIC  *****

Sub FusszeileSetzen

 IF NOT ThisComponent.supportsService (
"com.sun.star.sheet.SpreadsheetDocument" ) then exit Sub

        DIM OFormatFamilien as Object, oSeitenFormate as Object
        DIM oSeitenFormat as Object, oFT as Object, oText as Object

        oFormatFamilien = ThisComponent.StyleFamilies
        oSeitenFormate = oFormatFamilien.getByName("PageStyles")
        oSeitenFormat = oSeitenFormate.getByName("Default")
        oSeitenFormat.FooterIsOn = True
        oSeitenFormat.FooterIsShared = true  'beide Seiten sind gleich
        oFT = oSeitenFormat.rightPageFooterContent  'FooterText Objekt

'       oText = oFT.CenterText    'Mittleres Textobjekt
        oText = oFT.RightText     'Rechtes Textobjekt

        oText.setstring(format( now(), "yyyy-mm-dd"))

        oSeitenFormat.rightPageFooterContent = oFT

End Sub

*x- - - - - - - - - - - - - > Schnapp < - - - - - - - - - - - -x*

> Robert
 .... und tschüss

            Franklin



--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy