VBA Assign Checkbox Content Control Symbols

[warbird]

I have a Word doc with a series of checkbox content controls using the code that makes them operate like the old option groups (big thanks to Greg Maxey). It all worked nicely until...



Recently I have hit some (unnamed) errors with this document that have locked up Word. When the document is recovered all of the check box symbols have been changed to either a narrow vertical rectangle (both checked & unchecked) or an "R" and "L" (British pound symbol).

The first time I looked for code examples that would change it back but I couldn't find anything I could understand. I gave up the search and fixed them all manually using the dialog boxes. (my form contains more than 200 check boxes).

It just happened a second time! To be sure I get the look I want I think I need to add code that assigns these symbols each time the document loads. I know there is a better way but it seems to be just a little over my head.

There are two variations of checkbox CC's on the form. One uses the 82 & 163 symbols and one uses the 152 & 153 symbols (both "Wingdings 2"). The former are not identified (but could be) because the don't really do anything. The latter are all tagged "RateDot" (these trigger OnEnter & OnExit code).

Help!

[gmaxey]

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

[warbird]

Thank You! I found most of the pieces but had a hard time with the syntax

[warbird]

Using Greg's example I created this:

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.