使用 vba 更改 MS-Word ContentControl DatePicker 中的日期

Question

我有一个包含一些日期选择器的MS-Word表单，我需要创建将日期更改为下周(日期+ 7天(的vba，任何人都可以帮助我吗？

我试过这个，但没有用

Dim PODate As Date
Dim strDate As String
Dim doc As Word.Document
Dim ccs As Word.ContentControl
Set doc = ActiveDocument
Set ccs = ActiveDocument.SelectContentControlsByTag("Date1").Item(1)
strDate = ccs.Range.Text
PODate = CDate(strDate)
Selection.GoTo What:=wdGoToBookmark, Name:="Date1"
Selection.TypeText Text:=Format(PODate + 7, "mm/dd/yyyy")
End Sub

Answer 1

尝试：

Dim strDate As String
With ActiveDocument
strDate = .SelectContentControlsByTag("Date1").Item(1).Range.Text
.Bookmarks("Date1").Range.Text = Format(DateAdd("d", 7, strDate), "mm/dd/yyyy")
End With

甚至：

With ActiveDocument
.Bookmarks("Date1").Range.Text = Format(DateAdd("d", 7, .SelectContentControlsByTag("Date1").Item(1).Range.Text), "mm/dd/yyyy")
End With