Ich verwende dieses Makro seit Jahren, um einem Feld das heutige Datum als Standarddatum zuzuweisen, wenn kein Datum ausgewählt ist. Ich habe Version 7.6.4 rev2 heruntergeladen und es funktioniert nicht mehr.
REM Dieses Makro schreibt das heutige Datum in das Datumsfeld myDateField
Sub writeDate
Dim today As New com.sun.star.util.Date
today.Month = Month( Now )
today.Day = Day( Now )
today.Year = Year( Now )
form = ThisComponent.DrawPage.Forms(0) ' first form
form.datReceivedDate.BoundField.UpdateDate( today )
End Sub
Fehler in dieser Zeile form = ThisComponent.DrawPage.Forms(0) ' erstes Formular
Grundlegender Laufzeitfehler. DrawPage-Eigenschaft oder -Methode nicht gefunden.