Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

¿Cómo insertar una lista desplegable codificada por colores en una tabla de Word?

Author Xiaoyang Last modified

Supongamos que tienes una tabla en tu documento de Word y ahora deseas insertar una lista desplegable codificada por colores en una columna de la tabla. Esto significa que cuando selecciones una opción de la lista desplegable, el color de la celda se vuelve rojo, y cuando seleccionas otra, el color de la celda se vuelve verde, como se muestra en la captura de pantalla a continuación:

Demo showing a cell's color changing when an item is selected from the drop-down list

Insertar una lista desplegable codificada por colores en un documento de Word con código VBA

Los siguientes pasos te guiarán para insertar una lista desplegable en una celda de la tabla y aplicar el color de fondo a la celda según el elemento seleccionado:

  1. Selecciona una celda en la tabla donde deseas insertar la lista desplegable, y luego haz clic en "Desarrollador" > "Control de contenido de lista desplegable".

    Nota: Si no ves la pestaña Desarrollador en la cinta, visita: Cómo mostrar la pestaña Desarrollador en la cinta de Word.

    Drop-Down List Content Control button on the ribbon
  2. La lista desplegable se inserta en la celda específica. Luego haz clic en "Desarrollador" > "Propiedades".
    3. Drop-down inserted into a specific cell with Properties option highlighted
  3. En el cuadro de diálogo "Propiedades del control de contenido", realiza lo siguiente:
    1. Ingresa el nombre del título en el cuadro de texto "Título".
    2. Haz clic en el botón "Agregar" para abrir el cuadro de diálogo "Agregar opción".
    3. Escribe el elemento de la lista desplegable en el cuadro de texto "Nombre para mostrar".
      Content Control Properties dialog box and Add Choice dialog box
  4. Repite el Paso 3 para insertar otros elementos de la lista desplegable según sea necesario.
  5. Después de crear la primera lista desplegable, puedes copiarla y pegarla en otras celdas.
    Drop-down list copied to other cells
  6. Mantén presionado ALT + F11 para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
  7. En la ventana Microsoft Visual Basic para Aplicaciones, haz doble clic en "EsteDocumento" desde el panel "Proyecto" para abrir el módulo. Luego copia y pega el siguiente código en el módulo en blanco: 
    Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

    Nota: En el código anterior, "Estado" es el nombre del título utilizado al crear la lista desplegable, y "Completado", "En progreso" y "No iniciado" son los elementos. Puedes cambiar estos valores y los colores correspondientes según sea necesario.

    VBA window with ThisDocument selected, showing code pasted into the blank module
  8. Guarda y cierra la ventana de código. Ahora, cuando selecciones un elemento de la lista desplegable, el color correspondiente llenará la celda.
    Demo showing a cell's color changing when an item is selected from the drop-down list

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones extraordinarias!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Mantener Formato) / Super Traducir (Mantener Formato) / Redacción AI / Revisión con IA...

📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Exportar rango en varios formatos (PDF/TXT/DOC/HTML...) / Conversión por lote a PDF...

✏ Edición de cuerpo: Buscar y reemplazar en lote en múltiples archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / Saltos de sección / Cuadro de texto / Hipervínculos / Descubre más herramientas de eliminación en el grupo Eliminar...

➕ Inserciones creativas: Insertar delimitador de miles / Casilla de Verificación / Botón de Opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Forma / Párrafo de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier rango / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documento /11 herramientas de Conversión...

🌍 Compatible con más de40 idiomas: Usa Kutools en tu idioma preferido: ¡soporta inglés, español, alemán, francés, chino y más de40 idiomas adicionales!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

✨ Kutools para Office – ¡Una sola instalación, cinco potentes herramientas!

Incluye Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools para Word · Kutools para PowerPoint

📦 Obtén las5 herramientas en una sola suite | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorra tiempo y aumenta tu productividad al instante

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Más de 100 herramientas para Word!

Descarga gratuita Comprar ahora Más información sobre Kutools