ContentControl Listbox - Get selected "Value" instead of "Display Text"

See, for example: http://www.msofficeforums.com/word-v...html#post46903

Hey Paul,

I'd actually reviewed that thread linked above earlier and from it I couldn't manage to cull out the reference to how we address the VALUE content of the selected dropdown selection.

Can you please address that specifically here, just the relevant sample code snippet that addresses that field? Thanks.

Originally Posted by JBeaucaire

I'd actually reviewed that thread linked above earlier and from it I couldn't manage to cull out the reference to how we address the VALUE content of the selected dropdown selection.

Can you please address that specifically here, just the relevant sample code snippet that addresses that field? Thanks.

In the link, the macro extracts the content control value via:
.DropdownListEntries(i).Value
To get i from a selected entry, though, you have to loop through the DropdownListEntries to find which one matches the displayed entry (i.e. .Range.Text).

Macropod, as per forum rules, we need to present simple ideas right here in the thread rather than links to other threads where the answer is buried somewhere. Links to other places, when used, need to be to the exact location of the exact answer for the question being posed. And the simple answer should still be posted here in the original thread 99% of the time, even with an external link for additional reading.

Thanks for clarifying, I would never have figured that out! So the short answer is: "There's no way to read the value from the current selection, only from the original DropDownListEntries. As such, you must loop through them all until you find the one currently selected."

This worked for me:

Sub SelectedValues()
Dim cc As ContentControl, i As Long

    For Each cc In Me.ContentControls
        For i = 1 To cc.DropdownListEntries.Count
            If cc.DropdownListEntries(i).Text = cc.Range.Text Then
                Debug.Print cc.DropdownListEntries(i).Value
            End If
        Next i
    Next cc
End Sub

Your two choices are

1) open the ContentControls manually and copy them out by eye
2) use the loop technique shown above to iterate through them and write them out.

Your two choices are

1) open the ContentControls manually and copy them out by eye
2) use the loop technique shown above to iterate through them and write them out.

@JBeaucaire I will not be taking up option1 - I have not learnt to type with my eye

Hehe, can't believe I typo'd that, will leave it there as a badge of lame