在 MS Word 中计算未来日期答案

【问题标题】：Calculate Future Date in MS Word在 MS Word 中计算未来日期
【发布时间】：2012-07-22 19:57:42
【问题描述】：

我正在尝试使用 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)

感谢任何帮助。提前致谢。

【问题讨论】：

您在哪一行得到错误？你有一个叫frmExpirationDate的控件吗？
frmExpirationDate 是文档中的一个表单域。错误在approvalDate = frmApprovalDate.Text 上给出。我在调试它时，它似乎无法识别frmApprovalDate。
试试frmApprovalDate.Range.Text
我可以看看你的word文档吗？
如果你告诉我如何发布它。

标签： vba date ms-word

【解决方案1】：

这是你正在尝试的吗？

Dim approvalDate As Date

approvalDate = ActiveDocument.FormFields("frmApprovalDate").Range.Text

ActiveDocument.FormFields("frmExpirationDate").Result = _
DateAdd("yyyy", 1, approvalDate)

【讨论】：