¿Cómo insertar una lista desplegable codificada por colores en una tabla de Word?
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:

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:
- 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.
- La lista desplegable se inserta en la celda específica. Luego haz clic en "Desarrollador" > "Propiedades".
- En el cuadro de diálogo "Propiedades del control de contenido", realiza lo siguiente:
- Ingresa el nombre del título en el cuadro de texto "Título".
- Haz clic en el botón "Agregar" para abrir el cuadro de diálogo "Agregar opción".
- Escribe el elemento de la lista desplegable en el cuadro de texto "Nombre para mostrar".
- Repite el Paso 3 para insertar otros elementos de la lista desplegable según sea necesario.
- Después de crear la primera lista desplegable, puedes copiarla y pegarla en otras celdas.
- Mantén presionado ALT + F11 para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
- 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.
- Guarda y cierra la ventana de código. Ahora, cuando selecciones un elemento de la lista desplegable, el color correspondiente llenará la celda.

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

Las mejores herramientas de productividad para Office
Kutools para Word - ¡Más de 100 herramientas para Word!
- 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
- 📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Convertir en lote a PDF
- ✏ Edición de Contenido: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar Saltos de sección
- ➕ Inserciones creativas: Insertar separadores de miles / Insertar Casillas de Verificación / Crear Códigos QR