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

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

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

Private Sub CheckBox1_Click()
 
End Sub

For Each v In ActiveDocument.OLEObjects

For Each v In ActiveDocument.FormFields

Debug.Print ActiveDocument.FormFields.Count '0
Debug.Print ActiveDocument.InlineShapes.Count '3

For Each v In ActiveDocument.InlineShapes 'выдаёт ошибку

'ThisDocument
 
Public Sub Document_Open()
    Dim s As Word.InlineShape, i&
    For Each s In ActiveDocument.InlineShapes
        If TypeName(s.OLEFormat.Object) = "CheckBox" Then
           ReDim Preserve Ch(i)
           Set Ch(i).CheckBoxXXX = s.OLEFormat.Object
           i = i + 1
        End If
    Next
End Sub
 
'Module1
 
Public Ch() As New Class1
 
'Class1
 
Public WithEvents CheckBoxXXX As MSForms.CheckBox
 
Public Sub CheckBoxXXX_Click()
    MsgBox CheckBoxXXX.Name
    MsgBox CheckBoxXXX.Value
End Sub