Solved

How can I dynamically populate a combo box list based on a previous list box choice using Word 2007 Content Controls

Posted on 2010-11-22
2
596 Views
Last Modified: 2012-05-10
I'm designing a tabular form in Word 2007 to be used across my firm's IT deptartment for Change Management. I'd like to use a content control list box to display a list of systems (i.e. 'Front End', 'Back End', 'Database', 'Infrastructure', 'Batch', etc.). Selecting a member of this list would cause a list of names to be available in a combo box of Resources. The user would then select one member of this resource list. A different list of resources would be available for selection based on the selection made in the Systems list box. For now, at least, resource lists would be maintained in document source code.

I've developed several Excel applications using VBA, but have never ventured into Word. I'm trying to determine if I can use these nice-looking content controls to accomplish my task, or should just stick with VBA controls.

Have looked around extensively for materials that discuss how to code for these content controls, without any luck. In addition to advice on my question, would also greatly appreciate any feedback on resource material on coding for these content controls - books, tutorials, etc.
0
Comment
Question by:DBuzzell
2 Comments
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 250 total points
ID: 34187920
You need some code like this. It goes in the ThisDocument module of the document.

Note that it uses the Tag property to distinguish between controls, sot that needs to be set for both.
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)

Dim cc2 As ContentControl

    If ContentControl.Tag = "First" Then

        For Each cc2 In ActiveDocument.ContentControls

            If cc2.Tag = "Second" Then

                cc2.DropdownListEntries.Clear

                Select Case ContentControl.Range.Text

                    Case "Red"

                        cc2.DropdownListEntries.Add "Scarlet"

                        cc2.DropdownListEntries.Add "Vermillion"

                    Case "Blue"

                        cc2.DropdownListEntries.Add "Navy"

                        cc2.DropdownListEntries.Add "Azure"

                End Select

            End If

        Next cc2

   End If

End Sub

Open in new window

0
 

Author Closing Comment

by:DBuzzell
ID: 34273775
The solution provided the foundation for me to code a complete solution
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Like many others, we try and discourage users from printing documents unnecessarily and instead send or share them electronically. However, this doesn't always work and documents are still printed. With this simple solution, if the user tries to …
Microsoft Word is a program we have all encountered at some point, but very few of us have dug deep into its full scope of features, let alone customized it to suit our needs. Luckily making the ribbon (aka toolbar, first introduced in Word 2007) wo…
The viewer will learn how to make their project stand out over others by learning how to change colors and shapes, add spaces, change directions, and add bullets to their charts.
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.

930 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now