☰

使用多年後，writeDate 巨集在版本 7.6.4 rev2 中不起作用

tag-icon • tag-icon windows-10 date libreoffice-base imacros
使用多年後，writeDate 巨集在版本 7.6.4 rev2 中不起作用

我多年來一直使用這個宏，在未選擇日期時將今天的日期指定為字段的預設日期。我下載了 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 屬性或方法。

相關內容