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

Como se muestra en la captura de pantalla de la izquierda, debe limitar las opciones en la segunda lista desplegable en función de la opción en el primer menú desplegable, ¿cómo puede hacerlo? Este artículo le mostrará un método para crear listas desplegables dependientes en un documento de Word.
Cree listas desplegables dependientes en Word con código VBA
Cree listas desplegables dependientes en Word con código VBA
El siguiente código de VBA puede ayudarlo a crear una lista desplegable dependiente en un documento de Word. Siga las instrucciones paso a paso.
1. En primer lugar, debe insertar dos listas desplegables en su documento de Word. Hacer clic Developer > Formularios heredados > Campo de formulario desplegable. Ver captura de pantalla:
2. Haga clic con el botón derecho en la primera lista desplegable (esta lista desplegable debe ser la principal) y haga clic en Propiedades. Ver captura de pantalla:
3. En la apertura Opciones de campo de formulario desplegable cuadro de diálogo, debe:
3.1 Ingrese la categoría en el Elemento desplegable cuadro y luego haga clic en el Añada , repita la operación hasta que todas las categorías se agreguen al cuadro de lista desplegable Elementos en.
3.2 Entrar comida en el Bookmark encajonar.
3.3 Haga clic en OK botón. Ver captura de pantalla:
4. Haga clic derecho en la segunda lista desplegable, haga clic en Propiedades para abrir su Opciones de campo de formulario desplegable cuadro de diálogo, y en el diálogo, ingrese ddCategoría en el Bookmark cuadro y haga clic en el OK botón. Ver captura de pantalla:
5. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
6. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie debajo del código VBA en la ventana del Módulo.
Código de VBA: cree una lista desplegable dependiente en Word
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
1. En el código, cambie los elementos en cada caso según lo necesite.
2. comida y ddCategoría debe coincidir con las opciones de marcador que ingresó en los dos anteriores Opciones de campo de formulario desplegable Cuadros de diálogo.
7. Guarde el código y vuelva al documento.
8. Haga clic con el botón derecho en la primera lista desplegable y haga clic en Propiedades para abrir el Opciones de campo de formulario desplegable caja de diálogo. En el cuadro de diálogo, seleccione el nombre de la macro anterior (aquí es Popolateddfood) del Exit lista desplegable y luego haga clic en el OK del botón.
9. Ahora haga clic en Developer > Restringir la edición como se muestra a continuación.
10. En el Restringir la edición panel, necesita:
10.1) Compruebe el Permitir solo este tipo de edición en el documento caja;
10.2) Seleccionar Rellenar formularios opción de la lista desplegable;
10.3) Haga clic en Sí, Comience a hacer cumplir la protección botón;
10.4) en el Empiece a aplicar la protección cuadro de diálogo, introduzca la contraseña y haga clic en el OK botón. Ver captura de pantalla:
Ahora se crea una lista desplegable dependiente. Al seleccionar Fruta en la primera lista desplegable, solo se pueden seleccionar las categorías de frutas en la segunda.
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
Sumérgete en las funciones resaltadas a continuación o haga clic aquí para explorar todo el poder de Kutools for Word.
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/XLSX) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez ...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto ...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de eliminación, diríjase a nuestro grupo de eliminación
➕ Inserciones creativas: recuadro Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubra más en nuestro Grupo Insertar
🔍 Selecciones de precisión: Identificar páginas específicas / tablas / formas / párrafos de encabezado / Navega con facilidad usando nuestro Grupo Selecto
⭐ Mejoras de estrellas: Navegue rápidamente a cualquier ubicación / insertar automáticamente texto repetitivo / alternar sin problemas entre ventanas de documentos / 11 herramientas de conversión ...
Transforma tus tareas de Word con Kutools. 👉 Descargue con prueba de 30 días ahora 🚀.
















