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+unsubscr...@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
