Replace fake checkboxes with Content Control Checkboxes in Word
September 11, 2015
12:20 pm
admin
Uncategorized
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