Programatically create Fully Functional DropdownList (or ComboBox) Content Controls

gmaxey · #7 01-11-2021, 08:38 AM

Paul, Graham

Graham appears to be correct. It seems my habit of using vbNullString in code has bitten me here. Revising my earlier Attempt2:

Code:

Sub Attempt5()
Dim oCC As ContentControl
  Set oCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList, Selection.Range)
  With oCC.DropdownListEntries
    .Add oCC.PlaceholderText, ""  'Using vbNullString in this Attempt2 seems to have been the problem.
    .Add "A", "Apples"
    .Add "B", "Beets"
  End With
lbl_Exit:
  Exit Sub
End Sub

Appears to work as well.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to save docx to doc that checks compatibility and converts content controls to static content.	staicumihai	Word VBA	4	10-12-2016 08:23 PM
Pass combobox content to header	wpryan	Word VBA	3	07-17-2015 01:44 AM
VBA ppt ComboBox behaivor: 1.OnFocus change value 2. get dropdownlist doesn't disappear after mousec	janism22	PowerPoint	2	03-26-2015 12:35 AM
Create UserForm ComboBox or ContentControl	ptmuldoon	Word VBA	11	01-17-2015 05:58 PM
How to use the content of a combobox for {IF} field?	Melaanie	Word	0	06-14-2010 02:00 AM