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