Re: Kopfzeile mit Änderungsdatum
Verfasst: Mi, 16.09.2015 20:07
ordne jedem Tabellenblatt eine eigene Seitenvorlage zu und schreibe das Änderungsdatum in die gewünschte Seitenvorlage.
Folgendes Makro schreibt das Änderungsdatum in den rechten Bereich der Kopfzeile der Seitenvorlage "meineSeitenvorlageVorlage":
Gruß
Stephan
Folgendes Makro schreibt das Änderungsdatum in den rechten Bereich der Kopfzeile der Seitenvorlage "meineSeitenvorlageVorlage":
Code: Alles auswählen
Sub Main
tmp = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("meineSeitenvorlageVorlage")
tmp.HeaderIsOn = True
oHeader = tmp.RightPageHeaderContent
oHRText = oHeader.RightText
info = ""
With ThisComponent.getDocumentProperties.ModificationDate
info = info & .Day & "."
info = info & .Month & "."
info = info & .Year & " "
info = info & .Hours & ":"
info = info & .Minutes & ":"
info = info & .Seconds
End With
oHRText.String = "zuletzt geändert: " & info
tmp.RightPageHeaderContent = oHeader
End Sub
Stephan