Changing Drop Down List to Combo Box

[workingspade]

I have a bunch of drop down lists, but I just realized that I actually need a combo box, where the user can manually enter a different response. Is there a simple way to migrate my all the display names and values from the drop down list to the combo box?

[macropod]

What kind of dropdown?

[workingspade]

I'm using drop down list content control and want to switch to combo box content control

[macropod]

Try:

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

[workingspade]

Thanks! That works!

[smnel04]

Can you please 'dumb this down' for me? I have multiple drop downs in my document, tried the below code in the visual basic block but it does not seem to work

[macropod]

If the code I posted isn't working for you, then your dropdowns aren't content controls.

[Rafi]

Originally Posted by macropod

Try:

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

Windows 10 Office 365.
The code works great!!
Thank you very much, you saved me days of work!