使用多年后，writeDate 宏在 7.6.4 rev2 版本中不起作用

Question

多年来，我一直使用这个宏，当没有选择日期时，将今天的日期指定为字段的默认日期。我下载了版本 7.6.4 rev2，但它停止工作了。

REM 此宏将今天的日期写入日期字段 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

此行错误 form = ThisComponent.DrawPage.Forms(0) ' 第一个表单

基本运行时错误。未找到 DrawPage 属性或方法。