vba - MS Word で将来の日付を計算する

Question

MS-Word フォーム フィールドで将来の日付を計算しようとしています。このコードをhttp://word.tips.net/T001476_Calculating_a_Future_Date.htmlから取得し、機能するようにしました。「オブジェクトが必要です」というエラーがスローされます。コードはマクロ内にあり、マクロは frmApprovalDate フィールドが終了したときに呼び出されます。

Dim approvalDate As Date
approvalDate = frmApprovalDate.Text
frmExpirationDate.Text = DateAdd("yyyy", 1, approvalDate)

どんな助けでも大歓迎です。前もって感謝します。

Answer 1

これはあなたがしようとしていることですか？

Dim approvalDate As Date

approvalDate = ActiveDocument.FormFields("frmApprovalDate").Range.Text

ActiveDocument.FormFields("frmExpirationDate").Result = _
DateAdd("yyyy", 1, approvalDate)