Microsoft Office Forums - View Single Post - VBA Assign Checkbox Content Control Symbols

warbird · 01-16-2018, 12:26 PM

Using Greg's example I created this:

Code:

Private Sub SetCheckSymbol()
Dim oCC As ContentControl
For Each oCC In ActiveDocument.Range.ContentControls
  If oCC.Type = wdContentControlCheckBox Then
    If oCC.Tag = "RateDot" Then
      oCC.SetCheckedSymbol CharacterNumber:=152, Font:="Wingdings 2"
      oCC.SetUncheckedSymbol CharacterNumber:=153, Font:="Wingdings 2"
    ElseIf oCC.Tag = "ChkBox" Or "CarryCk" Then
      oCC.SetCheckedSymbol CharacterNumber:=82, Font:="Wingdings 2"
      oCC.SetUncheckedSymbol CharacterNumber:=163, Font:="Wingdings 2"
    End If
  End If
Next
Exit Sub
End Sub

It worked the first time or two but now gives a "Type Mismatch" error. It's not critical to the document function, just a loose end that doesn't make sense.

I have streamlined most of the code and replaced some of the VBA with XML binding. My form has been much more stable and responsive. It hasn't locked up the whole application recently.