在MS Word中计算将来的日期

Question

I am trying to calculate a future date with MS-Word Form Fields. I pulled this code from http://word.tips.net/T001476_Calculating_a_Future_Date.html , and tried to make it work for me. It throws an error stating "Object required". The code is within a macro, and the macro is called when the frmApprovalDate field is exited.

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

Any help is appreciated. Thanks in advance.

Answer 1

Is this what you are trying?

Dim approvalDate As Date

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

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