Try this:
Code:
Option Explicit
Sub Checkbox()
Dim oRng As Word.Range
Dim oCC As ContentControl
'ChrW(9744) is unchecked box; 9746 is checked box
Set oRng = ActiveDocument.Range
Selection.Find.ClearFormatting
With oRng.Find
.Text = ChrW(9744)
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
While .Execute
Set oCC = ActiveDocument.ContentControls.Add(wdContentControlCheckBox, oRng)
oCC.Checked = False
oRng.Collapse wdCollapseEnd
oRng.Move wdCharacter, 2
Wend
End With
Set oRng = ActiveDocument.Range
Selection.Find.ClearFormatting
With oRng.Find
.Text = ChrW(9746)
While .Execute
Set oCC = ActiveDocument.ContentControls.Add(wdContentControlCheckBox, oRng)
oCC.Checked = True
oRng.Collapse wdCollapseEnd
oRng.Move wdCharacter, 2
Wend
End With
lbl_Exit:
Exit Sub
End Sub