Элементы управления содержимым. Изменение свойств

Спасибо большое. Все работает, только непосредственно из VisualBasic, а из списка макросов выдает ошибку.

Хорошо, Спасибо еще раз. Поле с выпадающим списком создал, и в некоторых местах продублировал в ворде одно и то же "поле со спискам", но при изменении (дополнил и изменил существующие) одного списка другие остались старыми. Подскажи еще пожалуйста можно ли как то сделать что бы оно менялось во всей списках куда я его копировал.

Чтобы перехватывать событие изменения в элементе управления содержимым (ЭУС, в нашем случае, это поле со списком), нужно, чтобы в документе был реализован перехватчик события изменения. Для этого сам документ должен поддерживать макросы (т.е., быть .docm). Также в нем должна быть реализован VBA-код перехвата в такой процедуре:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)

End Sub

Работает он так: когда вы вносите изменение в любое поле со списком, а потом покидаете его (напр., курсор перемещаете в другое место), этот код срабатывает для того ЭУС, в котором произошли изменения. Тогда надо в обработчике пройтись по всем прочим ЭУС и в них выставить новое значение (при этом отличая случай программного изменения ЭУС от ручного).
Вы подумайте - нужны ли вам эти сложности. Действительно ли все ЭУС должны меняться при изменении одного из них? Может быть, проше создать один ЭУС с закладкой, а вместо других вставить поле ссылки на закладку этого ЭУС? Тогда при изменении только одного ЭУС ссылки на него тоже будут меняться (после обновления полей в документе).

ОПЯТЬ ТЕКСТ ОБРЕЗАЛСЯ ((

Множественный выбор поддерживают, напр., списки типа ListBox (это уже не ЭУС, а управляющие элементы ActiveX, для их поддержки необходимо включить в VBA-проект вашего документа .docm поддержку Microsoft Forms 2.0). В списке типа ListBox галочек нет, но видны выделенные элементы. Выбирать несколько элементов в таком списке нужно, удерживая нажатой клавишу Ctrl.
Для реализации обработки списка сначала создайте его в документе (выбирая элемент "Список" из доступных ActiveX-элементов на вкладке Разработчик). Однако наполнять его, программно выделять элементы списка и выяснять, какие элементы списка выбраны, следует программно. Вот примеры.
В примерах:
- FillInLBX = программа начального наполнения списка
- SelectValuesInLBX = программная реализация выбора некоторых элементов  (элементы в списке имеют индексы, начиная с нуля)
- ListSelectedValues = пример получения выделенных в списке элементов (в виде строки)
- GetSelectedItems = функция получения строки со списком выделенных элементов (взято на внешняя ссылка
Надеюсь, вы сможете разработать то, что вам нужно, на базе этих примеров.

Sub FillInLBX()
ListBox1.MultiSelect = fmMultiSelectExtended
ListBox1.AddItem "11"
ListBox1.AddItem "12"
ListBox1.AddItem "13"
ListBox1.AddItem "14"
End Sub

Sub SelectValuesInLBX()
Dim i As Long
Dim lbox As ListBox
Set lbox = ThisDocument.ListBox1
'Unselect all
For i = 0 To lbox.ListCount - 1
    lbox.Selected(i) = False
Next i
'Select some
lbox.Selected(1) = True
lbox.Selected(3) = True
End Sub

Sub ListSelectedValues()
Dim LB_sel As String
Dim lbox As ListBox
Set lbox = ThisDocument.ListBox1
LB_sel = GetSelectedItems(lbox)
End Sub

Function GetSelectedItems(ByRef lbox As ListBox) As String
'returns an array of selected items in a ListBox
Dim tmpArray() As Variant
Dim i As Integer
Dim selCount As Integer
    selCount = -1
    '## Iterate over each item in the ListBox control:
    For i = 0 To lbox.ListCount - 1
        '## Check to see if this item is selected:
        If lbox.Selected(i) = True Then
            '## If this item is selected, then add it to the array
            selCount = selCount + 1
            ReDim Preserve tmpArray(selCount)
            tmpArray(selCount) = lbox.List(i)
        End If
    Next
    If selCount = -1 Then
        '## If no items were selected, return an empty string
        GetSelectedItems = "" ' or "No items selected", etc.
    Else:
        '## Otherwise, return the array of items as a string,
        '   delimited by commas
        GetSelectedItems = Join(tmpArray, ", ")
    End If
End Function

Это только на первый взгляд кажется, что тут пара пустяков. На самом деле вот какие сложности:
- Элемент управления ListBox не содержит внутреннего атрибута (типа "Tag"), в котором можно было бы хранить все значения, которые могли бы выбираться. Поэтому придется пользоваться внешними, напр., в Word есть такой аппарат, как пользовательские свойства (Properties). Можно придумать структуру строки с разделителями, отражающую значения всех переменных и признак их последнего выбора. Напр., пусть это свойство имеет наименование "LB1". Пример значения этого свойства:
   |/Элем1/0/|/Элем2/1/|/Элем3/0/|/Элем4/1/|/Элем5/1/|
Здесь элементы списка представлены с разделителем - вертикальной чертой, а каждый элемент имеет два значения: значение элемента списка и значение того, выбран ли он. Программно можно легко добраться до любого параметра внутри такой строки.
- Для элемента ListBox нужно запрограммировать события GotGocus и LostFocus (поддерживаемые для объектов типа ListBox).
Первое из них должно срабатывать, когда пользователь кликнет в элементе ListBox. Тогда перехватчик этого события (GotFocus) должен извлечь из строки свойства LB1 (см.выше) все значения элементов списка и пересоздать список, выделив в нем элементы, выбранные в последний раз.
Второе событие (LostFocus) должно срабатывать после того, как пользователь кликнет в документе в любом месте вне списка. Тогда перехватчик LostFocus должен понять, что пользователь выбрал в последний раз, заново сформировать свойство LB1 и, наконец, переформировать список ListBox, оставив в нем только выбранные пользователем значения. При этом макрос из LostFocus должен еще и сохранить весь документ.
Возможно, получится обойтись только перехватчиком LostFocus.
Рассказывать все это - долго, реализовать и проверять - еще дольше.  Так что попробуйте придумать что-нибудь попроще )).
Дискуссию на эту тему закрываю.