Sub Demo() Dim CCtrl As ContentControl For Each CCtrl In ActiveDocument.ContentControls With CCtrl If .Type = wdContentControlDropdownList Then .Type = wdContentControlComboBox End With Next End Sub