Как создать зависимые выпадающие списки в документе Word?
Как показано на скриншоте слева, вам нужно ограничить выбор во втором раскрывающемся списке на основе параметра в первом раскрывающемся списке, как вы можете это сделать? В этой статье будет показан способ создания зависимых раскрывающихся списков в документе Word.
Создавать зависимые выпадающие списки в Word с кодом VBA
Приведенный ниже код VBA может помочь вам создать зависимый раскрывающийся список в документе Word. Пожалуйста, следуйте инструкциям шаг за шагом.
1. Во-первых, вам нужно вставить два раскрывающихся списка в ваш документ Word. Нажмите Застройщик > Устаревшие формы > Раскрывающееся поле формы. Смотрите скриншот:
2. Щелкните правой кнопкой мыши первый раскрывающийся список (этот раскрывающийся список должен быть родительским) и щелкните Свойства. Смотрите скриншот:
3. В дебюте Параметры поля раскрывающейся формы диалоговое окно, вам необходимо:
3.1 Введите категорию в Выпадающий элемент и нажмите Добавить кнопку, повторяйте операцию, пока все категории не будут добавлены в раскрывающийся список Элементы в.
3.2 Ввод ддфуд в закладка пунктом.
3.3 Щелкните значок OK кнопка. Смотрите скриншот:
4. Щелкните правой кнопкой мыши второй раскрывающийся список, щелкните Объекты открыть Параметры поля раскрывающейся формы диалоговое окно и в диалоговом окне введите ддКатегория в закладка и нажмите OK кнопка. Смотрите скриншот:
5. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
6. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль, затем скопируйте ниже код VBA в окно модуля.
Код VBA: создать зависимый раскрывающийся список в 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
Ноты:
1. В коде, пожалуйста, измените элементы для каждого случая по мере необходимости.
2. ддфуд и ддКатегория должны соответствовать параметрам закладки, которые вы ввели в двух предыдущих Параметры поля раскрывающейся формы диалоговые окна.
7. Сохраните код и вернитесь к документу.
8. Щелкните правой кнопкой мыши первый раскрывающийся список и выберите Объекты для открытия Параметры поля раскрывающейся формы диалоговое окно. В диалоговом окне выберите указанное выше имя макроса (здесь Popolateddfood) из Выход раскрывающийся список, а затем щелкните OK .
9. Теперь щелкните Застройщик > Ограничить редактирование как показано ниже.
10. в Ограничить редактирование панель, вам необходимо:
10.1) Проверьте Разрешить только этот тип редактирования в документе коробка;
10.2) Выбрать Заполнение форм вариант из выпадающего списка;
10.3) Нажмите Да, начать усиление защиты кнопка;
10.4). Начать усиление защиты диалоговом окне введите пароль и щелкните OK кнопка. Смотрите скриншот:
Теперь создается зависимый выпадающий список. При выборе «Фрукты» в первом раскрывающемся списке во втором можно выбрать только категории фруктов.
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...