ich probiere das aktuelle, aber nicht lokal, sondern nach ISO formatierte, Datum in die Fußzeile zu bringen, was ja grundsätzlich mit dem nachfolgenden Code - bezogen auf das Standard-Seitenformat - auch gelingt:
Code: Alles auswählen
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")
' for each stylename in Array("Standard", "Standard_Min")
oSeitenFormat = oSeitenFormate.getByName("Default")
' oSeitenFormat = oSeitenFormate.getByName("Standard_Min")
' oSeitenFormat = oSeitenFormate.getByName(stylename)
oSeitenFormat.FooterIsOn = True
oSeitenFormat.FooterIsShared = true 'beide Seiten sind gleich
oSeitenFormat.firstPageFooterIsShared = TRUE 'erste Seite wie Folgeseiten
oFT = oSeitenFormat.rightPageFooterContent 'FooterText Objekt
oText = oFT.RightText 'Rechtes Textobjekt
oText.setstring(format( now(), "yyyy-mm-dd"))
oSeitenFormat.rightPageFooterContent = oFT
End Sub
Die oben auskommentierte 'for each'-Schleife (mit der anschließenden Auswahl aus dem Array) funktioniert aber nur, sofern auch die beiden, im Array genannten Seitenformate überhaupt im aktuellen Dokument vorhanden sind.
Wie kann ich also die 'for each'-Schleife so beschränken, dass sie nur für die Seitenformate durchlaufen wird, die auch im aktuellen Dokument tatsächlich vorhanden sind?
Besten Dank für sachdienliche Hinweise.
Franklin
Moderatorenhinweis:
Verschoben nach "Makros und allgemeine Programmierung"