Kopfzeile mit Änderungsdatum

[Stephan]

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":

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

Gruß
Stephan