如何从 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等

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

How do I access a date picker user selected value, from within a word document, to use in in the same document using VBA?

ms-word

date

datepicker