在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)