Microsoft Office Forums - View Single Post - [Solved] Changing Drop Down List to Combo Box

Rafi · 06-13-2024, 01:17 AM

Quote:

Originally Posted by macropod

Try:

Code:

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!