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