VB script that inserts checkbox before selected lines in Microsoft Word

checkBoxAppend.vba

Sub checkBoxAppend()
    Dim lineCnt As Integer
    lineCnt = Selection.Range.Sentences.Count
    Dim Words
    For Words = lineCnt To 1 Step -1 '
        Selection.MoveStartUntil "&", wdBackward
        Selection.MoveLeft 1
        Dim objCC As ContentControl
        Set objCC = ActiveDocument.ContentControls.Add(wdContentControlCheckBox)
        objCC.Checked = False
        Selection.MoveDown Unit:=wdLine, Count:=1
        Selection.Expand wdLine
    Next Words
    Selection.MoveStartUntil "&", wdBackward
    Selection.MoveLeft 1
End Sub