¿Cómo crear listas desplegables dependientes en un documento de Word?

Como se muestra en la captura de pantalla, es posible que desee limitar las opciones en la segunda lista desplegable según la selección realizada en la primera lista desplegable. Este artículo le muestra cómo crear listas desplegables dependientes en un documento de Word.
Crear listas desplegables dependientes en Word con código VBA
Crear listas desplegables dependientes en Word con código VBA
El método VBA a continuación le ayuda a crear una lista desplegable dependiente donde la segunda lista cambia según lo seleccionado en la primera lista. Siga estos pasos:
- Asegúrese de que la pestaña "Desarrollador" sea visible en la cinta de Word (si no lo está, consulte el tutorial ¿Cómo mostrar la pestaña Desarrollador en Word?). Luego, inserte dos listas desplegables haciendo clic en "Desarrollador" > "Formularios heredados" > "Campo de formulario desplegable" dos veces.
- Haga clic derecho en la primera lista desplegable (esta será la lista principal) y haga clic en "Propiedades".
- En el cuadro de diálogo "Opciones del campo de formulario desplegable":
- Ingrese las categorías (por ejemplo, "Fruta", "Verdura", "Carne") en el cuadro "Elemento desplegable" una por una, haciendo clic en "Agregar" después de cada una.
- Escriba "ddfood" en el cuadro "Marcador".
- Haga clic en "Aceptar".
- Haga clic derecho en la segunda lista desplegable, seleccione "Propiedades", escriba "ddCategory" en el cuadro "Marcador" y haga clic en "Aceptar".
- Presione Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.
- En la ventana VBA, haga clic en "Insertar" > "Módulo", luego pegue el siguiente código:
Sub Populateddfood() 'Update by Extendoffice 2018/10/25 Dim xDirection As FormField Dim xState As FormField On Error Resume Next Set xDirection = ActiveDocument.FormFields("ddfood") Set xState = ActiveDocument.FormFields("ddCategory") If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub With xState.DropDown.ListEntries .Clear Select Case xDirection.Result Case "Fruit" .Add "Apple" .Add "Banana" .Add "Peach" .Add "Lychee" .Add "Watermelon" Case "Vegetable" .Add "Cabbage" .Add "Onion" Case "Meat" .Add "Pork" .Add "Beef" .Add "Mutton" End Select End With End Sub
Notas:
- En el código, cambie los elementos bajo cada declaración "Caso" para adaptarlos a su contenido.
- "ddfood" y "ddCategory" deben coincidir con los nombres de Marcador que ingresó en los cuadros de diálogo "Opciones del campo de formulario desplegable".
- Guarde el código y regrese a su documento.
- Haga clic derecho nuevamente en la primera lista desplegable y seleccione "Propiedades". En el cuadro de diálogo "Opciones del campo de formulario desplegable" que aparece, desde la lista desplegable "Salir", elija el nombre de la macro "Populateddfood", luego haga clic en "Aceptar".
- Haga clic en "Desarrollador" > "Restringir edición".
- En el panel "Restringir edición":
- Marque "Permitir solo este tipo de edición en el documento".
- Seleccione "Rellenar formularios" en la lista desplegable.
- Haga clic en "Sí, comenzar a aplicar protección".
- En el cuadro de diálogo "Comenzar a aplicar protección", establezca una contraseña y haga clic en "Aceptar".
Ahora la lista desplegable dependiente está activa. Cuando seleccione "Fruta" en la primera lista, solo aparecerán opciones de frutas en la segunda lista.

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 (Conservar Formato) / Super Traducir (Conservar Formato) / Redacción AI / Revisión con IA...
📘 Dominio del Documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...
✏ Edición de Contenidos: Buscar y reemplazar en lote en varios 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 / cuadros de texto / hipervínculos / Para más herramientas de eliminación, ve al grupo Eliminar...
➕ Inserciones creativas: Insertar separadores de miles / casillas de verificación / botones de opción / Código QR / Código de Barras / múltiples imágenes / Descubre más en el grupo Insertar...
🔍 Selecciones precisas: Localiza 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 / alterna entre ventanas de documento /11 herramientas de conversión...
🌍 Compatible con más de40 idiomas: Utiliza Kutools en tu idioma preferido: admite Inglés, Español, Alemán, Francés, Chino y más de40 idiomas.

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 del Documento: Dividir páginas / Combinar documentos / Convertir en lote a PDF
- ✏ Edición de Contenidos: 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
- 🌍 Compatible con más de40 idiomas: ¡Kutools habla tu idioma! Se admiten más de40 idiomas.