Word 2010 VBA Checkboxes

Question

Надеюсь, это будет легко. У меня есть документ Word, заполненный флажками. Есть ли способ доступа к этим флажкам в виде коллекции, которую я могу выполнить, и проверить/установить свойства, такие как идентификатор и значение?

Для справки, я уже пробовал коллекцию ActiveDocument.ContentControls; Пусто. Я также пробовал ActiveDocument.Fields. Это фактически содержит то же количество флажков, что и на странице, но я не могу отдать его флажку для доступа к свойствам, которые мне нужны.

Последний вопрос: можно ли динамически назначить обработчик события клику?

Спасибо заранее

Answer 1

Совокупность всех полей ActiveX, внедренных в документ (скажем, его имя ThisDocument) является коллекция ThisDocument.Fields. Элементами этой коллекции являются объекты класса Field.

Для запроса стоимости объектов в этой коллекции, вы бы использовать что-то вдоль линий:

ThisDocument.Fields.Item(1).OLEFormat.Object.Value 

Чтобы добавить код в обработчики событий, просто щелкните правой кнопкой мыши на элементе управления ActiveX, и затем выберите «Просмотреть код» в контекстном меню. Вы получите обработчик события Нажмите:

Private Sub CheckBox1_Click() 
    ' empty if event handler not set, VBA code otherwise ' 
End Sub 

Чтобы вставить код динамически, вам нужно манипулировать модуль кода, и добавить строку обработчиков событий по линии. Это может быть сложно, но, в принципе, вы могли бы сделать что-то вроде:

ThisDocument _ 
    .VBProject _ 
    .VBComponents(ThisDocument.CodeName) _ 
    .CodeModule _ 
    .InsertLines(<<Line>>, <<String>>) 

где <<Line>> где вы хотите вставить (номер), и <<String>> текст, который вы хотите вставить. Будьте осторожны, чтобы не вставлять середину существующего Sub, Function или определение пользовательского типа (очевидно).