Word Groupname checkbox

Bonjour à toutes et à tous

Est-ce quelqu'un connaitrait la commande vba sur Word pour connaitre le GroupName des cases à cocher d'un document?
J'ai fait ce code pour l'instant :
Sub test2()
For Each shapeloop In ActiveDocument.InlineShapes
With shapeloop

If .Type = wdInlineShapeOLEControlObject Then
If .OLEFormat.ClassType = "Forms.CheckBox.1" Then
tester = shapeloop.Type.OLEFormat.GroupName
.OLEFormat.Object.Value = True
End If
End If
End With
Next
End Sub

Mais ça ne fonctionne pas
Si quelqu'un a une idée...

Merci d'avance