Использовать vba Изменить даты в MS-Word ContentControl DatePicker

Question

У меня есть форма MS-Word, которая содержит некоторые средства выбора даты, мне нужно создать vba, которая изменяет даты на следующую неделю (дата + 7 дней), кто-нибудь может мне помочь, пожалуйста?

Я пробовал это, но это не сработало

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