Listbox Content Control - Reset default?

[gmaxey]

Yes, directly from his solution copy-paste.

Yes, it is a great mystery why CCDDLs created with VBA are absent the first "Choose and item" default entry. Perhaps it was a smart guy or gal on the VBA side who realized the folly of leaving a "printed" field in a document that displays placeholder text.

If you really want that "Choose and item" look you can create a buildingblock of the a basic CCDDL in your template and use:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 8/8/2017
Dim oRng As Range
Dim oCC As ContentControl
  'From a building block of a CCDDL created from the dialog.
  Set oRng = ActiveDocument.AttachedTemplate.BuildingBlockEntries("BuiltInCCDDL").Insert(Selection.Range, True)
  Set oCC = oRng.ContentControls(1)
  With oCC.DropdownListEntries
    .Add "A", "A"
    .Add "B", "B"
    .Add "C", "C"
  End With
  oCC.DropdownListEntries(1).Select
lbl_Exit:
  Exit Sub
End Sub

For such CCs the oCC.DropdownListEntries(1).Select works to reset.