Listbox Content Control

ArtKilp · #1 08-07-2017, 11:41 PM

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

Code:

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

And yes, I've asked this elsewhere too.

macropod · #2 08-08-2017, 12:30 AM

That's as simple as:

Code:

ActiveDocument.ContentControls(2).Range.Text = ""

gmayor · #3 08-08-2017, 01:20 AM

Unfortunately it isn't and will produce the same error. For a list box the code required is

Code:

ActiveDocument.ContentControls(2).DropdownListEntries(1).Select

ArtKilp · #4 08-08-2017, 01:23 AM

Quote:

Originally Posted by gmayor

Unfortunately it isn't and will produce the same error. For a list box the code required is

Code:

ActiveDocument.ContentControls(2).DropdownListEntries(1).Select

That gives me the first option from the list. I want the prompt, not the option. Programmatically logical would be "-1" or "0" or something like that. Or "ActiveDocument.ContentControls(2).Reset()"

The best option I've found so far has been to re-create the entire list. It is a lot of hopefully completely needless code, but that's the best solution I've found working.

macropod · #5 08-08-2017, 03:11 AM

Quote:

Originally Posted by gmayor

Unfortunately it isn't and will produce the same error.

It worked when I tried it before posting, but when I re-tried it just now, it didn't. Another way would be:

Code:

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

ArtKilp · #6 08-08-2017, 03:29 AM

Quote:

Originally Posted by macropod

It worked when I tried it before posting, but when I re-tried it just now, it didn't. Another way would be:

Code:

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

This works, thanks!

gmayor · #7 08-08-2017, 04:48 AM

Quote:

Originally Posted by macropod

Another way would be:

Code:

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

That is suitably ingenious. Good one

macropod · #8 08-08-2017, 05:31 PM

Cross-posted at: http://www.vbaexpress.com/forum/show...-Reset-default
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Clicking the selected Content Control checkbox returns wrong control in vba event	DougsGraphics	Word VBA	2	06-24-2015 07:31 AM
How to set the Content Control placeholder default text	dsimon14	Word VBA	3	03-27-2015 07:15 AM
How to use an ActiveX Control to insert a multi select listbox in Word	marksm33	Word	2	01-29-2014 05:21 PM
Deleting a table from a content control -- preserving the content control	BrainSlugs83	Word Tables	8	11-14-2013 03:06 AM
text appears in prompt font in RTF content control	eli.rhodes	Word	1	09-18-2013 08:32 AM