Listbox Content Control - Reset default?

[KilpAr]

Let's say we have a list box. We have there a prompt "Pick value" and the options are "1", "2" and "3". User picks value "3". Now in order to reset this value to "Pick value", what do I need?

This

    Dim obj
    Set obj = ActiveDocument.ContentControls(2)
    obj.Range.Text = obj.PlaceholderText.Value

fails to "You are not allowed to edit this selection because it is protected".

[gmayor]

It would be better to select the control by name or tag, however

Dim obj As ContentControl
    Set obj = ActiveDocument.ContentControls(2)
    obj.DropdownListEntries(1).Select

[KilpAr]

It would be better to select the control by name or tag, however

Dim obj As ContentControl
    Set obj = ActiveDocument.ContentControls(2)
    obj.DropdownListEntries(1).Select

Ok, thanks, but this obviously only returns one of the entries, not the default/prompt.

[gmayor]

If the content control is inserted from the dialog, the default prompt is the first line.

[KilpAr]

This works:

With ActiveDocument.ContentControls(2)
  .Type = wdContentControlText
  .Range.Text = ""
  .Type = wdContentControlDropdownList
End With

[gmayor]

Indeed it does - and the credit goes to Paul (Macropod) at http://www.msofficeforums.com/word-v...lt-prompt.html for coming up with this suggestion.

[KilpAr]

Indeed it does - and the credit goes to Paul (Macropod) for coming up with this suggestion.

Yes, directly from his solution copy-paste.

[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.

[macropod]

Cross-posted at: http://www.msofficeforums.com/word-v...lt-prompt.html
Please read VBA Express' policy on Cross-Posting in item 3 of the rules: http://www.vbaexpress.com/forum/faq...._new_faq_item3

[KilpAr]

Yeah, should have included a link. I posted the answer here though as soon as I received an answer.