Export (0) Print
Expand All

ContentControls Collection

Office 2007
A collection of ContentControl objects. Content controls are bounded and potentially labeled regions in a document that serve as containers for specific types of content. Individual content controls may contain content such as dates, lists, or paragraphs of formatted text.

Remarks

Use the Add method to create a new content control and insert it into a document. The following example creates a new drop-down list content control and adds several items to the list.

Visual Basic for Applications
Dim objcc As ContentControl
Dim objMap As XMLMapping

Set objcc = ActiveDocument.ContentControls.Add(wdContentControlDropdownList)
objcc.Title = "My Favorite Animal"
If objcc.ShowingPlaceholderText Then _
    objcc.SetPlaceholderText , , "Select your favorite animal "

'List entries
objcc.DropdownListEntries.Add "Cat"
objcc.DropdownListEntries.Add "Dog"
objcc.DropdownListEntries.Add "Horse"
objcc.DropdownListEntries.Add "Monkey"
objcc.DropdownListEntries.Add "Snake"
objcc.DropdownListEntries.Add "Other"

Use the Item method to access a specific content control in the collection. The following example accesses the third content control in the active document and, if the control is a drop-down list or a combo box, moves the first item to the bottom of the list and the last item to the top of the list.

Visual Basic for Applications
Dim objcc As ContentControl
Dim objLE1 As ContentControlListEntry
Dim objLE2 As ContentControlListEntry
Dim intCount As Integer

Set objcc = ActiveDocument.ContentControls.Item(3)

If objcc.Type = wdContentControlComboBox Or _
        objcc.Type = wdContentControlDropdownList Then
    
    'First item in the list.
    Set objLE1 = objcc.DropdownListEntries.Item(1)
    
    'Last item in the list.
    Set objLE2 = objcc.DropdownListEntries.Item(objcc.DropdownListEntries.Count)
    
    For intCount = 1 To objcc.DropdownListEntries.Count
        'Move the first item down one.
        objLE1.MoveDown
        
        'Move the last item up one.
        objLE2.MoveUp
    Next

End If

Use the ContentControl object to work with individual content controls. For more information, see Working with Content Controls.




Community Additions

ADD
Show:
© 2014 Microsoft