Nota
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Agrega un nuevo control de contenido, del tipo especificado, al documento activo y devuelve un objeto ContentControl que representa el nuevo control de contenido.
Sintaxis
expresión. Agregar (tipo, rango)
expresión Expresión que devuelve un objeto ContentControls .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Type | Opcional | WdContentControlType | Especifica el tipo de control de contenido que se debe insertar en el documento activo. Si se omite, Microsoft Word inserta un control de contenido de texto enriquecido. |
| Range | Opcional | Variant | Especifica el lugar del documento activo en el que se debe colocar el control de contenido. Si se omite, Word coloca el control en la posición del punto de inserción o reemplaza la selección actual. |
Valor devuelto
ContentControl
Observaciones
Los controles de contenido sólo se pueden anidar dentro de controles de contenido de texto enriquecido, controles de contenido de galerías de bloques de creación y controles de contenido de grupo. Si el punto de inserción o la selección actual se encuentran dentro de un control de contenido de otro tipo, este método produce un error. En este caso, puede mover el punto de inserción o bien utilizar el parámetro Range para especificar una ubicación en el documento.
Ejemplo
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
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"
Vea también
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.