Как получить коллекцию контролов в документе WORD в VBA?

[Dima_S]

Здравствуйте!!!
Помогите, пожалуйста, решить такую проблему.
У меня есть документ. В нём одна таблица, в таблице есть два столбца: первый содержит утверждение, а второй CheckBox (т.е. каждому утверждению соответствует один CheckBox). Внизу под таблицей находится CommandButton.
Мне надо написать макрос для Word, который при нажатии на CommandButton делал бы следующее: надо пройти по всем Checkbox-ам и получить их Value. И в зависимости от этого параметра будет делаться что-то дальше.
В макросе я могу обратиться к каждому CheckBox отдельно, но мне нужно получить либо их список, либо как-то достать указатели на них по имени.

Заранее Спасибо))

[viter.alex]

Я тоже задавался таким вопросом, но так и не смог найти коллекцию, в которую входят ActiveX-компоненты. Все, что удалось выяснить, что они есть в коллекции Fields и имеют тип wdFieldOCX. Но как узнать его значение и имя, я не знаю

[EducatedFool]

Sub test()
    Dim fi As Field: On Error Resume Next
    For Each fi In ActiveDocument.Fields
        ' для чекбоксов - элементов управления
        Debug.Print fi.OLEFormat.Object.Name, fi.OLEFormat.Object.Value
    Next fi
End Sub

Результат:

CheckBox1 True
CheckBox2 False
CheckBox3 True
CheckBox4 True

[viter.alex]

Блин, как же я не додумался? Столько времени потерял!

[Dima_S]

EducatedFool, спасибо Вам большое.))))
Неделю над этой штукой бился,Вы мне ооочень помогли!!!!!
СПАСИБО))))