ContentControls.Add method (Word)
Adds a new content control, of the type specified, into the active document and returns a ContentControl object that represents the new content control.
Syntax
expression.Add (Type, Range)
expression An expression that returns a ContentControls object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| Type | Optional | WdContentControlType | Specifies the type of content control to insert into the active document. If omitted, Microsoft Word inserts a rich-text content control. |
| Range | Optional | Variant | Specifies where in the active document to place the content control. If omitted, Word places the content control at the position of the insertion point or replaces the current selection. |
Return value
ContentControl
Remarks
You can nest content controls only within rich-text content controls, building block gallery content controls, and group content controls. If the insertion point or current selection is inside a content control of a different type, this method raises an error. In this case, you can either move the insertion point or use the Range parameter to specify a location within the document.
Example
The following example creates a new drop-down list content control and adds several items to the list.
Dim objCC As ContentControl
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"
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.