Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 12/4/2017
Dim oCC As ContentControl
  For Each oCC In ActiveDocument.Range.ContentControls
    If oCC.Type = wdContentControlCheckBox And oCC.Title = "RateDot" Then
      oCC.SetCheckedSymbol CharacterNumber:=82, Font:="Wingdings 2"
      oCC.SetUncheckedSymbol CharacterNumber:=163, Font:="Wingdings 2"
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub