В ворде добавить CheckBox - VBA

Формулировка задачи:

здравствуйте, в цикле добавляю его кодом:

For i = 0 To Количество_найденных_ссылок - 1
        Debug.Print Split_текст_всех_найденных_ссылок(i + 1)
        Selection.TypeText Text:=i + 1 & "-" & Split_текст_всех_найденных_ссылок(i + 1) & "-"
        Selection.InlineShapes.AddOLEControl ClassType:="Forms.CheckBox.1" & vbCrLf
    Next i

ругается, на последней строке в цикле говорит об ошибке 4218 - Не совпадение типа, как правильно добавить? спасибо

магнитофон рулит

For i = 0 To Количество_найденных_ссылок - 1
        Debug.Print Split_текст_всех_найденных_ссылок(i + 1)
        Selection.TypeText Text:=i + 1 & "-" & Split_текст_всех_найденных_ссылок(i + 1) & "-"
        Selection.InlineShapes.AddOLEControl ClassType:="Forms.CheckBox.1"
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.TypeParagraph
    Next i

при таком подходе не понятно как добавленными CheckBox пользоваться?, ведь обработчики их выбора в коде не добавились сами по себе...

программно можно в коде добавить нужное количество

Private Sub CheckBox1_Click()
 
End Sub

Решение задачи: «В ворде добавить CheckBox»

textual
                            Листинг программы 
                        

                            For Each MyControl In ActiveDocument.Controls()
MyControl.Top = 200
Next MyControl
 
 
For Each x In ActiveDocument.Controls
        Debug.Print x.Caption
    Next x
                        