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