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)