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