如何使用Word中的VBA清除日期选择器？

我试图写一些代码来清除模板。我在试图清除日期选择器时遇到了问题。我现在的代码确实清除了日期选择器，但它也删除了日期选择器函数。代码包含在下面，提前感谢

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

---

因为您使用的是日期内容控件，所以应该使用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

---

您提供的代码将两个内容控件声明为wdContentControlText类型，通过向内容控件的.Text属性写入空字符串来清除它们，然后将内容控件的类型更改为wdContentControlDropDownList类型。您是否打算更改内容控件的类型。ActiveDocument.ContentControls 1和2与声明为StartDate和StopDate的内容控件之间也没有明显的链接。