Как создать зависимые выпадающие списки в документе 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 кнопка. Смотрите скриншот:
Теперь создается зависимый выпадающий список. При выборе «Фрукты» в первом раскрывающемся списке во втором можно выбрать только категории фруктов.
Рекомендуемые инструменты для повышения производительности Word
Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени
- Сложные и повторяющиеся операции можно производить разово за секунды.
- Вставляйте сразу несколько изображений из папок в документ Word.
- Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
- Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
- Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
