Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-04

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
  4. 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
  5. Repite el Paso 3 para insertar otros elementos de la lista desplegable según sea necesario.
  6. Después de crear la primera lista desplegable, puedes copiarla y pegarla en otras celdas.
    Drop-down list copied to other cells
  7. Mantén presionado ALT + F11 para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
  8. 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
  9. 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 excepcionales!

🤖 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...

📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

Edición de Contenido: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, visita el grupo Eliminar...

Inserciones creativas: Insertar separadores de miles / Casillas de verificación / Botones 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 / Formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documentos /11 herramientas de conversión...

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

Las mejores herramientas de productividad para Office

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