計算MS Word中的未來日期

Question

我想用MS-Word表單字段計算未來的日期。我從http://word.tips.net/T001476_Calculating_a_Future_Date.html中提取了這段代碼，並試圖使它適用於我。它會拋出一個錯誤，指出「Object required」。代碼位於宏內，並且在退出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)