В ворде добавить 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

Sub InsertInteractiveCheckbox()
Dim oFld As Word.Field
Dim oRng As Word.Range
  Set oFld = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, _
             Text:="MACROBUTTON ToggleCheckbox", PreserveFormatting:=False)
  Set oRng = oFld.Code
  oRng.Collapse wdCollapseEnd
  oRng.InsertSymbol 254, "WingDings"
lbl_Exit:
  Exit Sub
End Sub

ActiveDocument.InlineShapes(Имя/Номер).OLEFormat.Object = True/False

Option Explicit
Public WithEvents CheckResp As MSForms.CheckBox
 
Public Event qwerty(value)
 
Private Sub CheckResp_Click() 'пример
    RaiseEvent qwerty(1)
End Sub

For i = 1 To ActiveDocument.InlineShapes.Count
        ActiveDocument.InlineShapes(i).OLEFormat.Object.Enabled = True
        ActiveDocument.InlineShapes(i).OLEFormat.Object = True
        ActiveDocument.InlineShapes(i).OLEFormat.Object = False
    Next i

Public Sub SetCh(ByVal ch As Object, i&)
    On Error Resume Next
    ch.Name = "ChBox" & i
    ch.Object.Caption = ch.Name
    Set CheckBoxXXX = ch.Object
End Sub

Public Sub Workbook_Open()
    Dim v, i&
    For Each v In ActiveSheet.OLEObjects
        If Left(v.Name, 5) = "ChBox" Then
            i = i + 1
            Set chk(i) = New Class1 'Инициализация нового класса
            chk(i).SetCh v, i
        End If
    Next
End Sub