Objeto ContentControls (Word)

Colección de objetos ContentControl. Los controles de contenido son regiones delimitadas y posiblemente con etiquetas de un documento que funcionan como contenedores para tipos específicos de contenido. Los controles de contenido individuales pueden incluir contenido como fechas, listas o párrafos de texto con formato.

Comentarios

Utilice el método Add para crear un nuevo control de contenido e insertarlo en un documento. En el siguiente ejemplo, se crea un nuevo control de contenido de lista desplegable y se agregan varios elementos a la lista.

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"

Utilice el método Item para tener acceso a un control de contenido específico de la colección. En el ejemplo siguiente se obtiene acceso al tercer control de contenido del documento activo y, si el control es una lista desplegable o un cuadro combinado, mueve el primer elemento a la parte inferior de la lista y el último elemento a la parte superior de la lista.

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

Utilice el objeto ContentControl para trabajar con controles de contenido individuales. Para obtener más información, vea Trabajar con controles de contenido.

Métodos

Nombre
Add
Elemento

Propiedades

Nombre
Aplicación
Count
Creator
Parent

Vea también

Referencia de modelos de objetos de Word

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.