Уважаемый VIDoc!
Что нужно сделать, чтобы связать Поля Со Списком:
1. В свойствах каждого связанного списка изменить имена этих полей. Для этого надо открыть окно Свойств поля и в графе Закладка изменить имя. Для примера я назвал эти поля "Сустав_1" и "Сустав_2".
2. Создадим макрос взаимосвязи этих полей. Код приведен ниже:
Public Sub ListChange()
Dim fd As FormField
Set fd = Selection.FormFields(1)
If fd.Name = "Сустав_1" Then
ActiveDocument.FormFields("Сустав_2").DropDown.Value = fd.DropDown.Value
ElseIf fd.Name = "Сустав_2" Then
ActiveDocument.FormFields("Сустав_1").DropDown.Value = fd.DropDown.Value
End If
End Sub
3. Опять откроем окно Свойств каждого поля и в разделе "Выполнять макрос", при входе и выходе, выбираем из списка имя макроса. В данном случае ListChange.
4. Включаем защиту документа.
Теперь при щелчке на одном списке, изменится значение другого.
Post's attachmentsсправка.doc 54.5 Кб, 6 скачиваний с 2014-09-08
You don't have the permssions to download the attachments of this post.