He estado usando esta macro durante años para asignar la fecha de hoy como fecha predeterminada a un campo cuando no hay ninguna fecha seleccionada. Descargué la versión 7.6.4 rev2 y dejó de funcionar.
REM Esta macro escribe la fecha de hoy en el campo de fecha 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
Error en este formulario de línea = ThisComponent.DrawPage.Forms(0) 'primer formulario
Error básico de tiempo de ejecución. Propiedad o método no encontrado DrawPage.