Hallo zusammen,
Stephan hatte doch schon ein .ots hoch geladen also eine Vorlage wenn man die direkt ins Vorlagen Verzeichnis kopiert funzt es sofort, hat dann aber den Nachteil, das das Dokument dies kleine Makro mit sich rum trägt.
Einfacher ist es ein neues Makro "setDate" zu erstellen und Makro/Standard/Modulexxx abzulegen
dann die Vorlage erstellen und gewünschter Stelle Platz fürs Datum lassen
nun unter
Menü > Extras > Anpassen > Ereignisse > Dokument erzeugt das soeben erstellte Makro "setDate" aus Standard.. zuweisen > ok
Datei als Vorlage speichern fertig
ein aus dieser Vorlage generiertes neues Dokument enthält dann an den angegebene Stellen die gewünschten Datum Einträge.
Code: Alles auswählen
sub setdate
myDoc = thisComponent
if left(mydoc.title,9) ="Unbekannt" then
print mydoc.title
mySheet = myDoc.Sheets().getByName("Tabelle1")
mycell01 = mysheet.getCellRangeByName("$C$3")
mycell02 = mysheet.getCellRangeByName("$C$4")
mycell03 = mysheet.getCellRangeByName("$C$6")
mycell04 = mysheet.getCellRangeByName("$C$7")
if mycell01.string = "" then
mycell01.string = Format(Date(),"DDDD, YYYY-MMM-DD")
end if
if mycell02.string = "" then
mycell02.string = Time()
end if
if mycell03.string = "" then
mycell03.value = Date()
end if
if mycell04.string = "" then
mycell04.formula = Time()
end if
end if
end sub
ist etwas aufwendiger um bei versehentlichem Start ein überschreiben zu vermeiden
und mit Beispielwerten belegt