Как очистить средство выбора даты с помощью VBA в Word?

Question

Я пытаюсь написать код для очистки шаблона. Я столкнулся с проблемой, когда я пытаюсь очистить выбор даты. Код, который у меня есть, теперь очищает средство выбора даты, но оно также удаляет функцию выбора даты. Код приведен ниже, спасибо заранее!

Dim StopDate As ContentControl
Dim StartDate As ContentControl

With ActiveDocument.ContentControls(1)
  .Type = wdContentControlText
  .Range.Text = ""
  .Type = wdContentControlDropdownList
End With

With ActiveDocument.ContentControls(2)
  .Type = wdContentControlText
  .Range.Text = ""
  .Type = wdContentControlDropdownList
End With

Answer 1

Поскольку вы работаете с элементами управления датой, вам следует использовать wdContentControlDate.Например:

With ActiveDocument
  With .ContentControls(1)
    .Type = wdContentControlText
    .Range.Text = ""
    .Type = wdContentControlDate
  End With

  With .ContentControls(2)
    .Type = wdContentControlText
    .Range.Text = ""
    .Type = wdContentControlDate
  End With
End With