WORD - формы с чекбоксами, обработка на VBA

[veryKing]

ВСЕМ ПРИВЕТ!

Имеются формы,в которых чекбокс(все ЧБ в формах соответствуют ЧБ в word файле) хотелось бы получить, что-то такое :

Dim oDoc   As Document
    Set oDoc = Application.Documents.Add("C:\Users\30852.0-2002.docm")

    For i = 1 To 6
        If UserForm1.Controls("CheckBox" & i).Value = True Then
            oDoc.("CheckBox" & i) = True
        End If
    Next i

,а не прописывать так для каждого:

If UserForm1.CheckBox1.Value = True Then
oDoc.CheckBox1.Value = True
End If

Вся проблема в том, что я не понимаю как синтаксически правильно записать выделенную красным строчку.

[Aleksandr H.]

так не работает?

For i = 1 To 6
If UserForm1.Controls("CheckBox" & i).Value = True Then
oDoc.Controls("CheckBox" & i) = True
End If
Next i

[veryKing]

Aleksandr H., Error '438' , и в List Properties/Methods нет такого варианта 'Controls'

[Aleksandr H.]

В интернетах пишут еще о

ActiveDocument.ContentControls

но у меня на Вашем файле не работает

ThisDocument.ContentControls.Count

выдает 0 контролов.