Sub ReplaceWithCheckBoxes()
Selection.Find.ClearFormatting
With Selection.Find
.Text = ChrW(61551)
.Replacement.Text = ChrW(9744)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While Selection.Find.Execute
Selection.Range.ContentControls.Add (wdContentControlCheckBox)
Loop
End With
End Sub