如何从 Word 文档中访问日期选择器用户选择的值，以使用 VBA 在同一文档中使用?

Question

我需要根据用户在Word中的输入添加Excel样式的自动日期创建。 访问开发菜单后，我可以从开发菜单中插入日期选择器菜单控件。 这提供了一种简单易用的日期格式。 然后，我希望获取用户选择的值，并根据该日期选择添加其他日期，增加天数，并使这些日期自动出现在文档的另一个区域中。 我在网上搜索没有成功。 有谁知道解决这个问题的方法？

Answer 1

为此，您需要一个按以下行编码的 ContentControlOnExit 宏：

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Dim DtVal As Date, Fmt As String
With CCtrl
If .Type = wdContentControlDate Then
Fmt = .DateDisplayFormat
.DateDisplayFormat = "MMM-DD-YYYY"
DtVal = CDate(.Range.Text)
.DateDisplayFormat = Fmt
With ActiveDocument
.SelectContentControlsByTitle("Date1")(1).Range.Text = Format(DtVal + 5, "MMM D, YYYY")
.SelectContentControlsByTitle("Date2")(1).Range.Text = Format(DtVal + 21, "MMM D, YYYY")
.SelectContentControlsByTitle("Date3")(1).Range.Text = Format(DtVal + 90, "MMM D, YYYY")
End With
End If
End With
End Sub

并插入到文档或其模板的"ThisDocument"代码模块中，其中输出文本内容控件的标题为 Date1、Date2、Date3 等。