Oharra
Orrialde honetara sartzeak baimena behar du. Saioa hasteko edo direktorioak aldatzen saia zaitezke.
Orrialde honetara sartzeak baimena behar du. Direktorioak aldatzen saia zaitezke.
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.