Any specific reason why you are not reading the value of the flag using the name of the flag itself?
, , , , , , InlineShapes ( ), Shapes ( .)
Shapes InlineShapes, .
InlineShapes
Dim ctl As InlineShape
For Each ctl In rng.InlineShapes
If ctl.Type = wdInlineShapeOLEControlObject Then
If ctl.OLEFormat.ClassType Like "Forms.CheckBox*" Then
'current version of ctl is a checkbox, do what you will with it.
End If
End If
Next ctl
...
, , .