☰

何年も使用してきた 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

この行フォームにエラーがあります = ThisComponent.DrawPage.Forms(0) ' 最初のフォーム

基本的なランタイム エラーです。DrawPage のプロパティまたはメソッドが見つかりません。

関連情報