Originally Posted by
KilpAr
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.